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ABSTRACT 

The  EIN  (Educational  Information  Network)  is  a 
non-profit  operation  which  coordinates  the  sharing  of  educational 
computing  resources.  It  is  administered  by  EDUCOM  and  funded  jointly 
by  the  U.  S.  Office  of  Education  and  the  National  Science  Foundation. 
EIN  maintains  a group  of  contact  personnel  at  member  institutions  to 
serve  as  a liaison  between  the  institution  and  EIN.  Through  these 
persons  items  of  software  are  offered  for  distribution.  EIN  also 
publishes  a catalog  of  the  software  which  is  available  through  the 
network.  The  four-  volume  catalog  contains  an  alphabetical  listing  of 
the  participating  EIN  members  that  are  represented  in  the  catalog  by 
program  descriptions;  descriptions  of  each  computer  facility  listed 
and  its  general  pricing  algorithm;  abstracts  of  available  programs, 
subdivided  into  13  areas  of  application;  three  indexes — by  EIN 
number,  by  descriptive  title,  and  by  keyword;  and  complete 
descriptions  cf  programs,  including  user  instructions,  samples  of 
input  and  output,  and  cost  estimates.  Volume  one  contains  a 
description  of  the  EIN,  facilities  descriptions,  abstracts,  and 
indexes.  This  volume  is  one  of  three  which  contain  the  complete 
program  descriptions.  (JY) 
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INOUT  will  solve  the  static  Leontief  input-output  problem  for  a 
model  with  as  many  as  175  sectors.  From  data  consisting  of  a 
square  input  matrix,  an  output  vector,  and  a set  of  final  demand 
vectors,  a great  variety  of  results  may  be  selectively  opted,  cal- 
culated, and  printed.  Among  thes’e  are  matrices  of  technical  and 
interdependency  coefficients,  matrices  of  interdependency  values 
and  net  effects,  and  some  other  useful  vectors. 


REFERENCE 

Leontief,  W.,  et  al. , Studies  in  the  Structure  of  the  American 

Economy , Harvard  Economic  Research  Proj . (Oxford  University 
Press,  New  York,  1953);  theoretical  and  empirical  explorations 
in  input-output  analysis. 
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USER  INSTRUCTIONS 

The  data  deck  consists  of  the  following  cards  in  the  order  speci- 
fied. 

JOB  CARD 

//  EXEC  L I BRARY . PARM= I NOUT 
//  DATA. INPUT  DD  * 

Master  control  card  for  Problem  1 
Total  output  or  receipts  vector 
Input  matrix  cards 
Final  demand  vector 
Master  control  card  for  Problem  2 


Master  Control  Card 

Contents 

number  of  sectors  (must  not  exceed  175) 

1 if  technical  coefficients  are  to  be  printed  (else  =0) 

1 if  interdependency  coefficients  are  to  be  printed 
(else  = 0) 

number  of  final  demand  vectors  to  be  read 

1 if  sector  multipliers  are  to  be  printed  (else  = 0) 

1 if  matrix  of  interdependency  values  is  to  be  printed 

(else  = 0) 

1 if  matrix  of  net  effects  is  to  be  printed  (else  = 0) 

1 if  column  sums  of  technical  coefficients  are  to  be 

printed  (else  = 0) 

1 if  interdependency  coefficients  are  to  be  punched 
(else  = 0) 

1 if  matrix  of  technical  coefficients  is  to  be  punched 
in  8F10.5  format  (else  = 0) 

1 if  matrix  of  interdependency  coefficients  is  to  be 
punched  in  4F20.8  format  (else  = 0) 

Total  Output  or  Receipts  Vector  Cards 

This  vector  is  punched  eight  elements  per  card  in  10-column  fields. 
If  the  decimal  point  is  not  punched,  it  will  automatically  be  ^ 

continued 
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placed  between  the  sixth  and  seventh  columns  in  each  10-column 
field.  These  cards  are  to  follow  the  master  control  card. 

Input- Matrix  Cards 

The  input  matrix  is  punched  by  rows,  eight  elements  per  card  in 
10-column  fields.  The  first  element  in  each  row  will  occupy  the 
first  10-column  field  on  a new  card — each  subsequent  element  in 
that  row  will  follow  in  consecutive  order.  If  the  decimal  point 
is  not  punched,  it  will  automatically  be  placed  between  the  sixth 
and  seventh  columns  in  each  10-column  field.  These  cards  are  to 
follow  the  total  output  vector  cards. 

Final  Demand  Vector(s)  Cards 

If  a nonzero  number  appears  in  Cols.  16—20  of  the  master  control 
card,  the  final  demand  vectors  desired  will  be  punched  in  the  same 
fashion  as  the  total  output  or  receipts  vector.  Each  demand  vec- 
tor will  require  a separate  set  of  cards.  These  cards  will  follow 
the  input-matrix  cards.  To  obtain  solutions  for  more  than  one 
final  demand  vector,  insert  a set  of  cards  for  each  final  demand 
vector  and  make  the  appropriate  entry  in  Cols.  16—20  of  the  master 
control  card. 
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SAMPLE  INPUT 
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ff  Pvt-f.  L1MW  AWy,MAHMa|Mn.»| 
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444. 

1 ?A. 

1‘M. 
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MOft  A 

77K. 

1ft4?  . 

1 07ft  . 

1 1?'. 

'ft  1 . 
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?0  A. 

140. 

4ft  . 

1 1 -17. 

? 1 4 « 
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1 ftft. 

14ft. 
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1 04, 
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ft*. 

ai  ?. 

1 7. 

000  0046 


o 

ERLC 


?*>. 


i . 


?. 

in. 
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?4. 
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ftft. 

'?. 
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SAMPLE  OUTPUT 
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o 


?9  SECTOR  INPUT-OUTPLT  MQOEL 

A =MATR ! X OF  TECHNICAL  COEFFICIENTS 

| I-A)  I NVE RSE  =MATR! X OF  INTERDEPENDENCE  COEFFICIENTS 


O 

o 

On 


TECHNICAL  COEFFICIENTS 


SECTOR 

1 

0.03240223 

0 # 366 1971 R 

0.0 

0.00745941 

O.C 

0.0 

0.0 

0.0 

0.0 

0.0005910? 

0.0 

0.0 

0.0 

0.0 

o.c 

C.O 

0.0 

0.0 

0.0 

0.0 

0.0 

o.r 

C.  3 

0.0 

3.0 

O.C  0036069 

0.0 

0.0 

0.0 

SFCTOR 

2 

0.0 

0.0 

C.O 

0.0 

0.0 

0.0 

0.0 

c.c 

C.O 

C.  0 

3.02  788104 

0.0 

0.00266312 

0.00569801 

C.O 

0.0 

o.c 

0.0 

0.0 

0.0 

0.01206273 

c.c 

o.c 

0.0 

0.0 

0.C0468891 

0.00321543 

0.00445633 

O.C  0436  278 

SECTOR 

3 

O.C 

C.O 

C.O 

3.0 

0.0 

0.0 

0.0 

0.0 

0.0 

C.  0 

0.0 

O.C 

0.0 

0.0 

C.C 

o.c 

C.O 

0.0 

0.0 

0.0 

0.0 

o.c 

C.O 

0.0 

O.C 

0.0 

0.0 

0.0 

o.c 

SECTOR 

4 

C.C0558659 

0.  0 

C.O 

0.04695042 

0.0 

0.0 

0.0 

C.C 

C. 02056555 

C.  0 

0.0 

0.0 

0.0 

0.0 

0.0 

C.O 

0. C 105263? 

0.0 

o.c 

0.0 

9.0 

0.0 

C.C 

0 • 0C  5 10204 

c.  c 

0.0 

0.00036069 

0.0 

0.0 

SFCTOR 

26 

0.0CE37989 

C. 44131455 

C.61861P62 

0.  ? 1 72C05  3 

0.26016260 

0.C729S27O 

0.22816901 

0.05*59^62 

C. 21336761 

0.  C596*5?67 

0.04832714 

0.04906334 

0.  CB  122503 

0.08262108 

C. 08666995 

C. 07 14285  7 

C. 17B94737 

0.  050 1?  19. 3 

0.24200913 

0.37500000 

0.52472859 

0.2 B 915663 

C.4C3C6122 

0.  81415929 

0. 9423^76  9 

O.C 

0.0 

0.0 

0.0 

SECTOR 

27 

0.C07B2 123 

O.C 

C. 01601602 

0.0 

0.10569106 

0.0 

0.0 

0.17515528 

3.00 1 28535 

C. CC472P13 

0.00371747 

0.00267618 

0.00133156 

0.0 

0.0C9e5??2 

C.O 

0.0 

0.00791557 

0.04566210 

0.00520833 

0.0C241255 

0.006024 1 C 

C.O 

C. C0221239 

0.05769231 

0.0C721371 

0.00643087 

C. 0C71301 2 

0. cm  44417 

SFCTOR 

23 

0.0 

o.c 

C.  3 

3.0 

0.0 

0.0 

0.0 

O.C 

o.c 

0.  3 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

C.  0 

3.0 

0.0 

0.0 

0.0 

0.066265C6 

0.0 

C.  13716814 

O.C 

0.0 

0.0 

0.0 

o.c 

SECTOR 

29 

0 •(  9E fi H J?6Q 

0.C2934272 

0.  0 

3.24528302 

0.02439024 

0.12408759 

0.02253521 

0.C34782M 

0.21203226 

0. C5732861 

0.02323423 

0.02408564 

0. 12782956 

0.1082621 1 

0.37438424 

C • 564  285  71 

0. C7368421 

3. 1 6270888 

9..0 

0.0 

0.0 

0.0 

0.0 

C.O 

0.0 

0.0 

0.0 

0.0 

C.O 
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column  S' jm s 


SFCTOR  1 
SECTnP  2 
SFCTOR  3 
SECTOR  4 
SFCTOP  5 
SFCTOR  ft 
SFCTOR  7 
SCCTnR  B 
SFCTnR  9 
SFCTOR  ID 
SFCTOR  11 
SECTOR  12 


C.4P0446S3 
C.9C3T«Sf 7 
C.7M  7 6 1 7 S 
r f ft  i 4 F * 7 * 9 
C.BF1;!*  5*5 
C.BC 3MSF4 
C.7M5:?:* 
C*  >7701*63 

r#ce*7frc? 

C • 1 6 * '7  ’ > 9 
C . 1 7^ 57953 
C.3AF7^7? 


SECTOR  n 
SFCTOR  14 
SFCTOR  15 
SECTOR  1ft 
SFCTOR  17 
SECTOR  IB 
SECTOR  n 
SECTOR  27 
SECTOR  21 
SFCTOR  77 
SFCTOR  23 
SFCTOR  24 
SECTOR  ?5 
SECTOR  26 
SECTOR  ?7 
SFCTOR  2 B 
SFCTOR  29 


C.«-»37*473 
C. >7ftCf f 33 
C mi 4C3S4C7 

C. 72657143 

r.6P^?i  :n 

C.20HC*  AB 

C.5B2MU2 
C.H97SU7 
C.6656f>43 
0. 6 144S7F3 
C.47S59164 
C.°724*133 

i.orc:ccco 

C. 46*36233 
C.479CCS6B 
C.46C76431 
C.46464J20 


000  0046 


> 


8/69 


7 


continued 


7 


000  0046 


EDUCATIONAL  INFORMATION  NETWORK 


EDUCOM 


000  0046 


INTERDEPENDENCE  COEFFICIENTS 


SECTOR 

1 

1.0T43B3T3 

C. 3PC63R29 

C. r C256198 

C. 01011666 

0.0015564? 

0.00006610 

0.00090055 

O.CC08373<S 

0.  CC  1 92  82  7 

0. C01 08026 

0.01006368 

0.00057936 

0.00239301 

0.00333841 

o.ccie^e3i 

C.CC23D108 

0.CC1 72055 

0.00085061 

0 *C  0 146243 

0.C018C913 

0.00689721 

O.COJTHSO 

O.CC343*?2 

C.CC17I RR4 

C.CC348265 

0.00364003 

0.00370152 

0.00280732 

0.00322  502 

SECTOR 

2 

O.CC19Cc?9 

1. :C9:2373 

0. 0C593744 

0.00404620 

0.00368833 

0.CC215870 

0.00230411 

C.CC2C9732 

C.CC4C4009 

0.CC114223 

7.02881572 

0.00102574 

0.00581613 

0.00058100 

0.0046 2414 

C.3CS82  894 

C. C C391 5 89 

0.C02 10231 

0.00340484 

0. 004 16403 

0.01751222 

0.CCR6O  1?3 
0.CC88R4P2 

C. CC  390490 

0.00820051 

3.008  51602 

0.C0850600 

0.00720826 

0.00833566 

SFCTnR 

3 

c.o 

C.O 

1. C CC0000G 

0.0 

n.o 

0. 0 

0.0 

0.0 

0.3 

C.  0 

0.0 

0.0 

0.  o 

0.0 

o.c 

C.O 

0.  c 

7.0 

0.0 

0.0 

0.0 

o.c 

A A 

C.O 

0.0 

0.0 

o.c 

0.0 

0.0 

SFCTnR 

4 

C » 0 

0.C065333R 

0.CC322249 

C.CC31765? 

1.05036782 

0.00C5C  29 1 

0.00C25657 

0.00031 060 

C.0CC335«6 

3.02226208 

C. 0C015749 

7.^0010625 

0.00019527 

0.00C66165 

0.00115340 

C.  00166579 

C.0C1C4729 

C. 31331421 

7.00028870 

0.00053C  72 

0.00467103 

0.00262050 

C. 00125454 
C.C  CC6  2736 

0. CCM0RR1 

C. CCi 14669 

0.00118505 

0.00120521 

0.00C85580 

0.00080132 

SFCTOR 

26 

C.C69072‘'8 

0.S2RP 32S7 

C. 7C79?589 

3.32767000 

0.32475914 

0.  12159109 

0.  25738  333 

C.C  84575?;? 

C.  27  336824 

0.  C 7602  065 

0.07808364 

0.08029718 

0.  19399118 

0. 15516562 

C.  1**71666 

C.  1 ’P9C69? 

0.25357831 

0.07069418 

0.304295R5 

0.46677207 

C. 60635C56 

C4C 

o.re*  i 

C.46643R36 

C.  8581 2 C0A 

1.02885815 

1.08566067 

0.  10093665 

0.08181874 

srcTnR 

27 

O.C l P D 3 3 5 1 

■:.:?34088i 

C.  0.356R461 

3.  C 1 6 159  46 

0.12145340 

0.00055856 

0.CC7902O2 

0.  18M711A 

0. 01933019 

C.  CC914030 

0.C0R23690 

7.00874772 

0.0U99922 

0.01030009 

C.C2757395 

■3.  31SE0566 

0.01410401 

0.01765220 

0.05R32627 

O.C  19^3 185 

C. C1800783 

0.02  ;502P2 
O.C2743623 

O.C122S8R3 

0. 0283C678 

0.08480824 

0.027 1774R 

1 • 02767C  74 

0.02693400 

SFCTOK 

2P 

0.00 123F75 

c. rC H 3773 

C.CC257525 

0.CV6779S 

0.C0326R33 

0#  CO  199000 

0.0C151194 

0.00107145 

C .'*0203  759 

0.  C C 075  724 

7.:004O5O? 

0.C0C68338 

0.01126  754 

0.00251 738 

C.C0P556  :? 

3 • " C 23749  7 

C. rC36?45C 

7.00 1 C5664 

0.70133712 

0.CC215 185 

0.00212765 

C.C6PC5f?7 
0.00  35**17 

0. 002^1856 

C. 14C55858 

0.0035671 i 

0 • CO  354560 

0.CC3S1837 

1 . 0C338339 

SECTOR 

29 

0.  14?5<=f*7 

3. K S 96  00  7 

C. C 5783848 

J.308C5483 

0.05522211 

0.15369011 

0.03883072 

C.C4c-f  M5o 

0. ?‘>787C 

0. 06627746 

O.C  36204 1 0 

0.04657904 

0.  16168981 

0. 13774265 

0. 42344573 

C.6CSF2200 

C.  1 5.3876C6 

). 10001291 

0.04669637 

0.C7315905 

0.C5036813 

J. 0424 :F49 

C .C 2946796 

C. C474C762 

0. 047C?945 

0.04606867 

0. C46C2220 

0.04675  151 

O 

O 

o 


o 

o 

■p* 

O' 


0 
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SECTOR  multipliers 


SECTOR  1 
SECTOR  2 
SECTOR  3 
SECTOR  4 
SFCTOR  5 
SECTOR  6 
SFCTOR  7 
SECTOR  a 
SFCTOR  9 
SFCTOR  10 
SECTOR  11 
SECTOR  12 
SECTOR  13 
SECTOR  14 
SECTOR  15 
SECTOR  16 
SECTOR  17 
SECTOR  1 ft 
SFCTOR  19 
SECTOR  20 
SECTOR  21 
SECTOR  22 
SECTOR  23 
SECTOR  24 
SFCTOR  25 
SECTOR  26 
SECTOR  27 
SFCTOR  2fl 
SECTOR  29 


1 * 7 5F 45  l 71 
2 . 6 1 7 5 1 5 4 7 
?, 37(2SEC3 
;« ?C?P46 
2*01 lQ6Cll 
U8C46S549 
U5C6C9C16 
1*c 3 15  5 6 79 
l « 9 7 5556  51 
1*26572554 
1*  31  425545 
I, 49*37767 
i*9  2FP31  32 
Itf F2364C3 
2.  13144321 
2*27632567 
2*  ? 02 124  P l 
1 * 5r  4°  ( 5 71 
1*92131127 
?#14C9ni6 
2. 1 r 5 4 1 5 74 
2*16535559 
1*P7105?13 
2* 72ES44CS 
2*782211*7 
1 ,77<‘85373 
l**?CC656t 
1*76523921 
1*7  RC  57157 
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OUTPUT  LEVELS  RFOURFI)  TO  MEET  SPECIFIED  FINAL  DEMAND 


O 

O 

o 


FINAL  DEMAND 


RFQUIREn  OUTPUT 


o 

o 

O' 


SECTOR  1 

SECTOR  2 

SFCT  OR  1 

SECTOR  A 

SECTOR  5 

SECTOR  6 

SECTOR  7 

SECTOR  8 

SECTOR  9 

SECTOR  to 

SECTOR  11 

SECTOR  12 

SECTOR  13 

SECTOR  14 

SECTOR  15 

SECTOR  16 

SECTOR  17 

SECTOR  18 

SECTOR  19 

SECTOR  20 

SECTOR  21 

SFCTOR  2? 

SFCT  OR  23 

SECTOR  24 

SECTOR  25 

SECTOR  26 

SFCTOR  27 

SECTOR  28 

SECTOP  29 


TOTAL 


14CC.CCCCC0C9 

74F.CCCCC0C0 

9"9.rCCCCCC9 

2n2.ccc  :ccro 

28. Cf CCCOCO 
72.rcc:cCCO 
156. CCCCOOGO 

itt.iccccoco 

232.CCCCC300 
78  P.  Cf  C C Cr  C 0 
32  1.CCCCCCC0 
326.0CCCCCC0 
38  5.C  Cf  0CCC0 
345#cr CCCCCO 
7 l.CCCCCCCO 
1C.0CCCCCC3 

86.ccc:ccco 

43S.0CCCCCC0 

7i.cc ccc:co 
1 19.CCCCCCC0 
61 3.CC  CCCOCO 
52. CCCCCCCO 

i2.ccc:ccco 

254. CCCCCCCO 
64. CCCCCCCO 
2154. CCCCCCCO 
16.CCCCCCC0 
1C48. CCCCCCCO 
C.C 

1308  2 . C'CCCCCO 


1 7 90 v C CO DOC  OO 
852. COC  OCCOO 

oqq, o^r occco 

2279. OCCOCCOO 
123. OOC  )CCOC 
137.COCOCCOC 

355. OCCOCCOO 
805. COC 00000 
778. OCCOCCOO 
1692. 00C OCPO^ 
1 C 76. COC  OCCOn 

1121 . COCOCOOO 
751. COC  OCCOO 
351  COC OCCOO 
203. COCOOCOO 
14G.C0C  OCCOO- 

OS.C^COCOOC 

U37.COr^CCOO 

219.0000000^ 

192. o*c oroo* 

B29. OCC  0000A 
166. CCC  3°CC0 
196. COC )COOC 
452. PAC OCCOO 
1 04. OCC 0000  0 
5545. COC OCCO? 
31 1. OOCOCOOO 

1122.  COC OCCOO 
1612. COCOCOOO 

25432.C0C0CC0C 
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COST  ESTIMATE 

For  the  job  listed  on  the  Sample  Input,  the  total  running  time 
was  11  seconds.  At  the  current  rate  for  computer  time  ($0.11/ 
sec.)  at  The  Pennsylvania  State  University,  the  chargeable  time 
amounts  to  $1.21. 

Charge  to  user  = computer  time  + network  overhead 

= $1.21  + network  overhead 


CONTENTS— IN0UT 


pages 

1 Identification  § Abstract 


3-  4 User  Instructions 


5-12  I/O 

13  Cost — Contents 


4/71 


ERIC 


13 


000  0046 


EDUCOM 


EDUCATIONAL  INFORMATION  NETWORK 

000  0047 


DESCRIPTIVE  TITLE 
CALLING  NAME 


Synagraphic  Mapping 
SYMAP 


INSTALLATION  NAME  The  Pennsylvania  State  University  Compu- 
tation Center 


AUTHOR(S)  AND 
AFFI LIATION(S) 


LANGUAGE 


Laboratory  for  Computer  Graphics 
Harvard  University  Graduate  School  of 
Design 

Adapted  by 

Larry  Rich 
Jeffrey  Simon 
Larry  Sinkey 

Department  of  Architectural  Engineering, 
The  Pennsylvania  State  University 

FORTRAN  IV 


COMPUTER 
PROGRAM  AVAILABILITY 

CONTACT 


FUNCTIONAL  ABSTRACT 


IBM  System  360/67 

Decks,  listings,  and  documentation  pres- 
ently available 

Dr.  Daniel  Bernitt,  EIN  Technical  Repre- 
sentative, 105  Computer  Building,  The 
Pennsylvania  State  University,  University 
Park,  Pa.  16802 
Tel.:  (814)  865-9527 


The  Synagraphic  Mapping  program  (SYMAP)  produces  maps  that  depict 
spatially  disposed  quantitative  and  qualitative  information.  Raw 
data  of  every  kind  (physical,  social,  economic,  etc.)  may  be  re- 
lated, weighted,  and  aggregated  in  a graphic  format  by  assigning 
values  to  the  coordinate  locations  of  data  points  or  data  zones. 
According  to  the  application  and  desired  representation  of  data, 
three  basic  types  of  mapping  procedure  may  be  specified:  contour, 

conformant,  or  proximal. 

CONTOUR 

— based  on  the  use  of  contour  lines,  each  of  which  represents  a 
value  remaining  constant  throughout  its  length.  The  map  consists 
of  closed  curves  that  connect  all  points  having  the  same  numeri- 
cal value.  The  value  at  each  of  the  different  levels  of  contour 

continued 
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(where  a single  contour  level  will  represent  a particular  data 
value)  is  determined  by  the  program,  according  to  the  scale  of 
the  map  and  the  range  of  the  data.  Between  any  two  contour  lines, 
a continuous  variation  is  assumed.  Therefore,  the  use  of  contour 
mapping  should  be  restricted  to  the  representation  of  continuous- 
ly varying  information,  such  as  topography,  rainfall,  or  popula- 
tion density. 


CONFORMANT 

— based  on  the  conformance  to  the  boundaries  of  a data  zone.  This 
type  of  mapping  is  best  suited  to  data  for  which  the  representa- 
tion as  a continuously  varying  surface  is  inappropriate  owing  to 
the  significance  of  areal  limits  or  boundaries.  Each  predefined 
data  zone  is  assigned  one  data  value  and,  depending  on  its  numer- 
ic class  (range),  one  representative  character  on  the  map  itself. 
Local  variation  within  the  zone  boundaries  will  not  be  apparent, 
but  will,  on  the  average,  be  correct. 

PROXIMAL 

— based  on  proximity  to  a data  point.  In  appearance,  this  type 
of  map  is  similar  to  the  conformant  map.  However,  point  informa- 
tion is  used  here  to  define  the  data  zones.  Each  character  loca- 
tion on  the  output  map  is  assigned  the  value  of  the  nearest  data 
point,  using  nearest-neighbor  techniques.  Boundaries  are  then  as- 
sumed along  the  lines  where  these  values  change.  Then,  the  map- 
ping is  carried  out  as  in  the  conformant  type. 


While  the  contour  type  of  map  is  mose  often  used  and  the  easiest 
to  produce,  the  conformant  and  proximal  maps  are  often  more  help- 
ful in  the  "soft"  disciplines.  Output  is  in  the  form  of  printed 
pages  that,  if  the  total  map  size  exceeds  the  width  of  the  comput- 
er printed  page  (13  in.),  may  easily  be  glued  or  pasted  together 
to  form  a continuous  map.  Also  included  in  the  output  is  a histo- 
gram showing  frequencies  for  given  data  levels,  plus  several  op- 
tional features. 


REFERENCES 

♦ 

Robertson,  J.C.,  "The  SYMAP  Programme  for  Computer  Mapping,"  Car- 
tographic 108-113  (Dec.  1967);  taken  from  a report  of  the  Select 
Committee  on  the  Ordinance  Survey  of  Scotland. 

Fisher,  M.,  "The  Laboratory  for  Computer  Graphics,"  Harvard  Univ. 

Grad.  School  Design  Suppl.  (summer  1967). 
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Shepard,  D. , " A Two-Dimensional  Interpolation  Function  for  Irregu- 
larly Spaced  Data,”  Harvard  Univ.  Grad.  School  Design  Lab.  Comput- 
er Graphics  (Feb.  1968);  available  from  the  EIN  Office  for  the 
cost  of  duplication  and  mailing.  Deals  with  the  subject  of  analyz- 
ing irregularly  spaced  data  derived  from  a continuous  surface.  A 
method  is  developed  for  reconstructing  the  surface  from  the  sam- 
pled data.  This  method  is  the  main  device  used  to  generate  the 
maps  produced  by  SYMAP. 
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USER  INSTRUCTIONS 

The  user  must  establish  the  geographic  area  that  he  wishes  to  map, 
called  the  study  area ; it  may  be  of  any  desired  shape.  He  must  then 
establish  the  relative  locations  of  any  controlling  points  to  which 
his  data  relate.  Fo±  these  two  purposes,  it  is  best  to  construct 
a source  map , with  borders  from  which  measurements  may  be  taken. 

This  source  map  may  be  identical  in  size  to  the  maps  that  are  to 
be  produced — or  it  may  be  of  any  size,  because  there  are  automatic  - 
scaling  and  proportioning  electives  built  into  the  program. 

Owing  to  the  availability  of  the  digitizer  at  The  Pennsylvania  State 
University  (PSU) , it  is  recommended  that  users  of  the  PSU  modifica- 
tion of  SYMAP  consider  using  this  device  for  these  proportional  ad- 
justments. The  purpose  of  the  digitizer  is  to  transfer  automatical- 
ly to  punched  cards,  the  X and  Y coordinates  from  a map  or  drawing. 
The  drawing  or  map  itself  is  limited  to  30X30  in.,  but  it  may  be 
drawn  to  almost  any  scale.  The  digitizer  is  in  rto  way  connected 
to  a computer  but  only  provides  the  cards  (via  an  IBM  029  card- 
punch  machine)  that  can  be  used  as  computer  input.  Interested  per- 
sons are  directed  to  contact  the  EIN  technical  representative  at 
PSU. 

Input  to  the  computer  in  the  form  of  a deck  of  punched  cards  must 
be  prepared.  This  deck  will  consist  of  certain  introductory  cards 
and  a number  of  packages,  each  composed  of  additional  cards  cover- 
ing a specific  category  of  information  about  the  map  to  be  produced. 

Job  Card 

Will,  be  prepared  by  Computation  Center  personnel. 

Introductory  Cards 

See  Ref.  1. 

Types  of  Packages 

The  titles  of  all  available  packages,  with  a brief  explanation  of 
their  general  purpose,  are  listed  below  in  the  sequency  of  their 
position  in  the  deck.  For  more-complete  and  -definitive  instruc- 
tions in  the  preparation  of  these  packages,  see  Ref.  1. 
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A-OUTLINE 

de?cribes  the  outline  of  the  study  area  if  nonrectangular  by 
specifying  the  coordinate  locations  of  the  outline  vertices.  Used 
for  contour  and  proximal  maps  only. 


A-C0NF0RM0LINES 


-used  to 


give  the  positions  of  the  data  zones  to  which  your  data 
are  to  be  related,  by  specifying  the  coordinate  locations  of  ver- 
tices on  the  zonal  outlines.  This  package  is  required  for  a con- 
formant map. 

B-DATA  ‘POINTS 

—used  to  give  the  positions  of  the  data  points  to  which  your  data 
are  to  be  related,  by  specifying  their  coordinate  locations.  Data 
points  may  be  either  the  points  for  which  data  are  available  or  the 
n?r?terS  of  are^s»  called  data  zones,  for  which  data  are  available. 
(When  warranted  by  the  nature  of  your  study,  and  under  exceptional 
circumstances,  other  "centers"  may  be  used,  such  as  centers  of  pop- 
ulation. j This  package  is  required  for  contour  and  proximal  maps. 

C-0T0LEGENDS 

^---used  to  specify  the  relative  position  of  legends  that  are  to  be 
uated  automaticlly  if  the  size  and/or  scale  of  the  map  are  al- 

tcicQ . 

d-barriers 

—used  to  give  the  coordinate  location  and  strength  of  impediments 
to  interpolation  at  specified  vertices. 

E-VALUES 

— used  to  assign  numerical  data  to  the  data  points  and/or  data 
zones  by  specifying  the  values  involved.  All  such  data  must,  of 
course,  be  measured  on  a consistent  uniform  basis.  While  normal- 
ly required,  this  package  may  be  omitted  if  you  wish  to  procure  a 
pre  lmmary  base  map  for  checking  locations  before  applying  values. 

El -VALUES  INDEX 

package10  ad^USt  the  reference  order  of  data  values  in  the  E-VALUES 
F-MAP 

—used  to  specify  below  the  map  an  appropriate  title  for  the  identi- 
fication of  each  separate  map  that  you  wish  to  run.  In  addition, 
it  instructs  the  computer  to  make  each  specific  map  pursuant  to 
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certain  electives.  These  electives  provide  a variety  of  options 
for  obtaining  maps  suited  to  your  particular  needs.  An  F-MAP 
package  is  required  for  each  map  desired. 

REFERENCES 

1.  Introductory  Manual  for  Synagraphio  Computer  Mapping — "SYMAP," 
Pa.  State  Univ.  Dept.  Arch.  Eng.  § Grad.  Interdisciplinary 
Program  in  Regional  Planning.  Rept.  No.  69-4,  Version  5,  PSU 
Modification  3.  Available  from  the  EIN  office  for  the  cost  of 
duplication  and  mailing. 
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SAMPLE  INPUT — Population-Density  Contour  Map  of  Pennsylvania 


r 

& 


i 


t 


* 

r 

i 

f 


L 

l 

i 


► 


' 

C 5993 

, T=200,R=600,SYMAP' , 'HULL  E J ' , MSGLEVEL= 1 

J!  EXEC  LIBRARY, 
//DATA. INPUT  DD 

PARM= 

SYMAP 

VlRSION  5 

A-OUTL1 NES 

0008 

0052 

01 

0027 

005  1 

02 

0027 

0059 

03 

0028 

0095 

04 

0028 

0131 

05 

0028 

0161 

06 

0028 

0197 

07 

0028 

0237 

08 

0028 

0278 

50 

0031 

0281 

51 

0082 

0304 

68 

0087 

0301 

69 

99999 

B-DATA 

0018 

0036 

01 

0039 

0082 

02 

0042 

0119 

03 

0044 

0140 

04 

0046 

0177 

05 

0086 

0085 

24 

0096 

0119 

25 

99999 

C-OTOLEGENDS 

12  P 

0165 

0297 

PHILADELPHIA 

10  P 

0135 

0034  -5.  -4. 

PITTSBURGH 

15  P 

0111 

0149 

10 

!!  PENN  STATE 

TL 

0099 

0008 

01 

0126 

0046 

02 

0138 

0053 

03 

0147 

0054 

04 

0157 

0069 

05 

0152 

0295 

19 

0155 

0316 

20 

1L 

0082 

0009 

01 

0081 

0043 

02 

0084 

0061 

03 

0082 

0068 

04 

0084 

0083 

05 

0096 

0283 

21 

0096 

0293 

22 

SL 

0087 

0141 

01 

0078 

0148 

02 

0074 

0159 

03 

0088 

0167 

04 

0081 

0186 

05 

0176 

0227 

29 

0190 

0238 

30 

99999 


► 
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E-VALUES 

309.0 

50.0 

55.0 

15.0 

32.0 

48.0 

40.0 

38.0 

17.0 

517.0 

42.0 

13.0 

90.0 

42.0 

19.0 

46.0 

11.0 

117.0 

77.0 

187.0 

308.0 
144.  0 

63.0 

72.0 

71.0 

99999 

F-MAP 

C PENNSYLVANIA  POPULATION  DENSITY 

C PERSONS  PER  SQUARE  MILE 


1 

24. 

36. 

3 

10  . 

6 

25. 

25. 

10 

1965  DATA 
C.  F.  GERLACH 
9999 

100. 

100  . 

13 

.11 

14 

99999 

/» 

1.5 

1.5 

50.  100.  100.  100. 

400.  14584. 
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SAMPLE  INPUT — Population-Density  Conformant  Map  of  Pennsylvania 


//  '05993,1=200, R=6000,SYMAP' , 'HULL  E J 1 ,M5GLEVEL= 1 

//  EXEC  LIBRARY, PARM=SYMAP 
//DATA,  INPUT  DD 


VARS  I ON  5 
A-C0NF0RM0LINE5 
A 


A 


99999 

B-OATA 


99999 

C-OTOLEGENDS 
12  P 

PHILADELPHIA 
- 10  P 

PITTSBURGH 
15  P 

" PENN  STATE 
TL 


0008 

0052 

01 

0027 

005  1 

02 

0027 

0059 

03 

0037 

0059 

04 

0036 

0012 

05 

0027 

0 0 12 

06 

0023 

0023 

07 

0008 

0052 

08 

002  7 

0059 

01 

CU28 

0095 

02 

0040 

0095 

03 

0040 

0093 

04 

0054 

0093 

05 

0018 

0036 

01 

0 039 

0082 

02 

0069 

0219 

12 

008  1 

0192 

13 

0165 

0297 

0135 

0034  -5.  -4. 

0111 

0149 

10 

0099 

0008 

01 

0143 

0199 

21 

0147 

0198 

22 

0176 

0227 

29 

0190 

0238 

30 

c. 
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E- VALUES 

309.0 
50  . 0 

55.0 

15.0 
32  . 0 

48.0 

40.0 
38  . 0 

17.0 

517.0 

42.0 

13.0 

90.0 

42.0 

19.0 

46.0 

11.0 

1-7.0 

72.9 
18  7.0 

308.0 

144.0 

63.0 

72.0 

71.0 

99999 

F-MAP 

C PENNSYLVANIA  POPULATION  DENSITY 

C PERSONS  PER  SQUARE  MILE 


) 


O 

o 

o 

o 

o 


1 

24. 

36. 

3 

10  . 

4 

25. 

5 

3000  . 

6 

25. 

25. 

50. 

100  . 

100. 

100. 

400. 

2000. 

10 

1965  DATA 
C.  F.  GERLACH 
9999 

13 

.11 

14 

1 . 5 

1.5 

2.0 

1.5 

15 

6. 

10  . 

99999 

100. 
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SAMPLE  OUTPUT — Showing  Contours  of  Population  Density 


A- TUT  l 


VFRTEX 


n0  4N 

isl  vin 


AC R 1SS 

1 


1 ) 
?) 
*») 
4 1 

M 
f ) 
7) 
8 ) 
° ) 


7 7.00 
P .00 

27 .00 

28.00 
. TO 

28  .00 
.00 
2H  .00 
20.00 


11. 00 
42. CO 
49.  00 

0*).  CO 

1 31. 00 
1 M.  CO 
lr7. CO 
??7. 00 

278. 00 


c 


50  ) 

177. 0C 

268.  CO 

M ) 

179  . ()0 

?n.  rc 

5?) 

18?  .00 

? 60,  00 

57> 

1*5.00 

?59. on 

54  ) 

186.00 

104, CO 

5C  ) 

185.00 

88.00 

56) 

183.00 

7, CO 

57) 

27.00 

12.00 

58) 

9 ? • 00 

? 3.  CO 

IQ) 

B ,00 

52. 00 

: A=  '♦5208.00 

CRN TPR  = 

105. A5, 


151.50) 


R-OAT  A l>D  1NTS 


NT 

DOWK| 

ACR1SS 

1 ) 

18.00 

34.  CO 

2) 

30. 10 

P2.  CO 

3) 

4 2.00 

119.  CO 

4) 

44  .00 

140. OC 

5 ) 

46.00 

177. CO 

6) 

45.00 

P22.0C 

7) 

40.00 

251. CO 

P) 

5 7.00 

?R3. CO 

0) 

73.00 

306 . CO 

10) 

70.00 

263. 00 

60) 

154.00 

231. CO 

61) 

143.00 

250. CC 

6?) 

124.00 

273. 00 

6?  ) 

144.00 

202. 00 

44) 

157.00 

281. CC 

65) 

148.00 

26B. CO 

66) 

171.00 

279. OC 

67) 

169.00 

201.  CO 

C 


o 
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oomnoTMos 


VERTEX 

DOWN 

A OP.')  SS 

f R3WS 

♦ CTLS 

( 1 ) 

• 3HIL  AUFLPHIA 

• ACROSS  FROM 

us.oo 

297. CO 

0. 

0. 

< 2) 

•PITTSBURGH*  1 

DOWN  F R IP 

135.00 

34.  00 

-5. 

-4. 

( 3)  •*  PFNN  STATF  • ACROSS  FROM 

111.  00  149.00  0.  0. 


( 4)  • T • ON  LINF 


1) 

99.00 

8.  CO 

, 2) 

126.00 

46.00 

3) 

13R.00 

53.  CC 

4» 

147.00 

f 4.  CC 

I *5) 

157.00 

69.  0O 

( 16) 

153.00 

154. 00 

1 17) 

I4fl  , )0 

238.  00 

! 18) 

161.00 

2 4 7.  00 

I 19) 

152.00 

255, CO 

1 20) 

165.00 

316.00 

LENGTH* 

351  .82 

i si  n* 

On  c INF 

( 

1) 

02.00 

9.00 

( 

?) 

PI. 00 

43. CO 

( 

3) 

84.00 

61 . 00 

1 

A) 

R2.30 

68.  CO 

< 

5) 

84.00 

03.00 

( 

16. 

9R.00 

209.  00 

( 

17) 

94.00 

228. CO 

( 

1 R ) 

Q7  • 00 

233. 00 

l 

19) 

93.00 

265. CO 

t 

20. 

92.00 

280. CO 

( 

21) 

96.00 

283. CO 

( 

22) 

96 . 00 

293.00 

LENGTH* 

297.99 

( 

6)  »S* 

ON  LINE 

( 

1) 

87.00 

1 4 i . C C 

( 

2) 

78.00 

148. CO 

< 

3) 

74.00 

159. CC 

( 

4) 

8R.OO 

167. CO 

( 

51 

81.00 

106. CC 

O 

o 

o 

o 

o 


► 


‘ o 
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F-V  M UPS 


DATIJM  VALIIF 


( i) 

300.00 

( 2 ) 

SO.  00 

( * ) 

S5.00 

( 4) 

IS.  00 

( s) 

32.00 

( 6 ) 

40.00 

( 7) 

4 0.00 

( 0) 

3a. oo 

( Q ) 

17.00 

( 10) 

Si  7. 00 

( 2R  ) 

1M.00 

212.00 

( 2f  ) 

163.00 

21  CO 

( ?7) 

ISO. 00 

223.00 

( ?? ) 

172.00 

??  7.  CO 

( ?0) 

176.00 

227.00 

( 30) 

190.00 

?™.  00 

LFNGT  H* 

219.26 

000  0047 


60) 

296.00 

61) 

320,00 

6?) 

654,00 

63) 

503.00 

64) 

1042.00 

0b) 

277.00 

6 6) 

3005.00 

67) 

15554, CO 
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r.  P t NNS YL V AD  I A POPULATIM  DENSITY 

C PFRSCNS  PEP  SIO'JAKF  M M.  F 


ELECT  TV F 


l ^ a p stzr  is  ?4.oc  inch=s  long  by 

3 MijMHEP  nF  LFVFl  S IS  10 

A LFVFL  ST7.FS  AR  F PROPORTIONED  TO  1)  PS. 00 

A)  100.00 


10  MAP  TEXT 


1 OA IA 
C.  F.  OFALACH 


13  MAP  SCALE  IS  0.11 

14  MAP G IN  SHIFTS  ARE  l.*C  T TOP,  1.50  AT 

1 a NFW  NUMBER  OF  I INES  PER  INCH  IS  A. On 


3 A . 00  INCHES  WIDE 

?)  25.00  3)  50. OC  A) 

7 ) 100.00  R I 100.00  9) 


IFFT,  2.00  AT  BOTTOM,  AND 


TIME  = IBs  13: 13.1? 

FLAPSF  THE  = 3.37  SFCPNOS  FOR  INPUT 


100.00  51  100.00 

A 00. 00  101  1A58A.00 


1.50  AT  RIGHT 
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MAP 


C PENNSYLVANIA  POPULATION  DENSITY 

C PFRS3NS  PER  SWUAPP  MILE 


MAP  SCAI  P a O.U00  INCHES  ON  OUTPUT  MAP/UNITS  ON  SOURCE  MAP 

MAP  SHOlLO  BE  ,lR  IN  TF  0 AT  5*0  ROfcS  PER  INCH  AND  10*0  COLUMNS  pFR  INCH 

ROW  « (DOWN  COORDINATE  - * 0.6600 

CQLJMN  = (ACROSS  COUROlMATc  - * 1*1000 


DATA  POINTS  FOR  M An 

point  row  column 


DATUM 


VALUE 


LFVEL 


1) 

2) 

3) 

A) 

5) 

6) 
7) 
fU 
9) 

io) 


1 A 

32 
34 

36 

37 
36 

33 
A A 
55 
53 


43 

94 

1^ 

157 

19ft 

248 

?ftO 

315 

340 

293 


1 

2 

ft 

4 

c 

6 

7 

P 

o 

ic 


3 09.  00 
50.  00 
55*00 
15*00 

32.00 
4*. 00 

40.00 
ftft.  00 
17*00 

517*00 


R 

2 

2 

1 

1 

2 

2 

? 

1 

ft 


61) 

loi 

278 

61 

320.00 

6 

62) 

8ft 

304 

6? 

654, 00 

9 

63) 

102 

32  5 

6 3 

5 03.00 

7 

64) 

no 

313 

64 

1042.00 

10 

65) 

117 

29ft 

65 

277.00 

5 

66) 

119 

310 

66 

3005.00 

10 

671 

lift 

374 

67 

15584.00 

10 

STANDARD  SEARCH 

RADIUS 

IS 

42* 

9321 

TIME  = 

18:13:13. 

59 

EL  A PS  E 

TIME  = 

0*47 

SECOND  S 

FOP  INITIAL  CALC ULATI HNS 
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rf  TIME  = IRi  lr.s SO. 71 

o 

O ELAPSE  TIME  = 157.12  SFCHIS  FOR  MAP 

O 

o 

O C PENNSYLVANIA  POPULATION  DFNSITY 

C PFRS3NS  PFR  SQUARE  MME 


lofts  EAT  A 
C.  F.  GFRLACH 


DATA  VALUF  EXTREMFS  ARF 


11.00  15SS4.Q0 


ABSOLUTE  VALUF  RANGE  APPLYING  TO  «=ACH  LEVEL 

('MAXIM  UM ' INCLUDED  IN  H I G IF  ST  LFVEL  ONLY) 


MIN'  HUM 

11.00 

35. 9E 

6C.96 

110.93 

210.R0 

310.79 

410.72 

510.45 

610.58 

1010.29 

MAX  HUM 

35  • *3 3 

60.0  6 

110.93 

210. B6 

310.7F 

M0. 72 

510.65 

4 1 0 • 6R 

1010.29 

15584.00 

PERCENTAGE  OF 

TOTAL 

AR SOI  DTP 

VALUE  RANGE 

APPLYI NG 

TO  EACH  LEVEL 

0.16 

0,1  6 

0.32 

0.64 

0.64 

0.64 

0.64 

0.64 

2.  57 

<53.50 

FREQUENCY  DISTRIBUTION  OF  DATA  POINT  VALUES  IN  FACH  LEVFL 

LEVFL  1 ? 3 A 5 6 7 


0 10 
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1 

i i i p i i ii 
iiiiii  ii 

3 

4444S4444 

XXX  X6XXXX 
vvv  vvvvvv 

nooo7onpn 

nnnrtnnnnn 

OB998H9RB 

QQ3QQ3QQQ 

......... 

.........  * 

i « i i i i • i 

444444444 
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XXXXXXXXX 

I IL'1  Jl  IL'U*  Jl  'i  I 

ooncnnnoo 

R390PH9P9 

II 
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il 
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ii 

ii 
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it 
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» 
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II 
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n 

ii 

H 

n 

ii 

ti 

n 

it 

u 

i< 

it 

ii 

ii 

ii 

it 

ii 

ii 

it 

ii 

i) 

= = = = = ==  = = -=  = = = = = = = = = =: 

FPF0. 

7 

12 

14 

8 

1 3 

3 

2 

l 6 

1 I..1..I 

I " 2"  I 

I — 3 — I 

I ~ =4  ==  l 

I 4-4-5  ♦♦  I 

IXXf XX I 

tnn70P  i 

199  POP  I 

lounoiNi  !■■*«■! 

2 1..1..1 

P ' 2"  I 

I --3--I 

I==4=*I 

I ♦♦^♦♦1 

IXX6XX I 

no7nn  i 

199  PRO  I 

i ■■♦■■i 

3 I . .1 . . I 

I • • 2 • • I 

I --3 — I 

I ==4  = = I 

I + + 5 ♦♦  I 

IXX6XX  l 

1007001 

4 I . .1  . .1 

I "2"  I 

1 } — | 

I = =4  = = I 

I I 

!■■*■■! 

5 I . . 1 . . 1 

I • • 2 • • I 

1--3--I 

I^=4==I 

I f+5 ♦♦ I 

6 I . . 1 . . 1 

I " 2"  I 

1—3—1 

I ==4  — I 

I ♦♦ I 

7 T . ,1.  .1 

I • *2*  ' I 

1 — 3 — j 

I ==4  ~I 

l*+5**f 

8 

I • *2'  • 1 

I —3—1 

I==4==I 

1**5**1 

9 

I • • 2 • • I 

I — 3 — I 

i**s**i 

10 

I • • 2 • • I 

1 --  — i 

I ++R ♦♦ I 

1 1 

I * • 2 1 1 I 

I --3  — I 

I + + 5 ♦♦ I 

1? 

I — 3 — I 

1 ♦♦5 ♦♦ I 

13 

I — 3 — I 

l ♦♦ I 

14 

I— 3— I 

TIME  = 

18: 15: 52.66 

PL APS  F 

TIME  = 1.95 

S5C0N 1 S 

FOR  HISTOGRAM 
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SAMPLE  OUTPUT — Showing  Population  Density  by  Counties 


> 


A-cnNFOP«ri.  nr  s 


VERTEX 

nnWN 

ACROSS 

1 

ARFA 

( 1 ) 

P.90 

52. CO 

( ? ) 

27.00 

51.  CC 

( 31 

27.00 

59.  CO 

( *1 

37.00 

59,  CO 

( 5) 

36.  00 

12.  CO 

( 6 1 

27.00 

12.00 

( 7 ) 

23.00 

23. CO 

( « ) 

a. 00 

52.00 

L EN  r, T H= 

137.39 

ARC  A = 

70?.fo 

C FMT  r R= ( 

26.95, 

37,26) 

67 

FA 

( 1 ) 

156.00 

29  6 , CO 

( ? ) 

1 5fl ,00 

301. CO 

( 3) 

161.00 

301. 00 

( 4) 

148,00 

2 c3 , CO 

( 5 ) 

172.00 

293. 00 

* 6) 

175.00 

286. CC 

( 7 | 

170.00 

286.  CO 

( P ) 

167.00 

285. CO 

( 9) 

145.00 

289.  CC 

c n ) 

161.00 

285, CO 

( in 

159.00 

287.  CC 

( 12) 

140. 30 

2*9. 00 

< 13) 

160.00 

290. CO 

( 14) 

147.00 

244 , CO 

( 1?  ) 

156.00 

298.  00 

L ENGT  H= 

44.89 

AG  F As 

137.00 

C E N T c M = ( 

165.09, 

291.93) 

o 

o 

o 

o 

o 

*<1 


o 


H-0ATA  doikjts 


NT 

down 

ACROSS 

1 ) 

18.  OU 

46,  CO 

2 ) 

39.00 

82.  CC 

3 ) 

42.00 

119.  CO 

A) 

44.00 

140. CO 

5 1 

46.00 

177.  CO 

4) 

45,00 

2 0 2 , 00 

7) 

40.00 

251.00 

P ) 

47.00 

293, CO 

9 ) 

7 ) , 00 

3 06, CO 

10) 

70. OC 

263. 00 

o 

ERIC 


M*  t 

164.00 

2)1.00 

61) 

14?. or 

250. CO 

62  ) 

124.00 

273. 00 

63  ) 

144.00 

?n2. CO 

64  ) 

1 r>  7 . 0 0 

281. CO 

65  ) 

14°. 00 

248. CO 

66  ) 

171. OC 

? 79. CO 

67) 

140. OC 

281. CO 
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C-ITf  I r:C,z\ ir»S 


VRU  X 

nowN 

V.1  )Sr> 

+ S 

*cr.)LS 

< 1 ) 

10  MIL  ^nPtPHlA 

' ACROSS  FOflM 

164. nr 

2 >7.  CO 

0. 

0. 

( ?) 

*i>  1 TT  Sn  JK-H*  1 

oown  rvt* 

ns.no 

H.  CC 

-5. 

-4. 

000  0047 


( 

M •*  n nn  statf 

' \C9r.ss 

111.  K) 

1 4 i.  n 

( 

4)  * T * ON  L INF 

( 

1 ) 

99.00 

■4.  CO 

( 

?) 

l ?6  • CO 

44.  CO 

( 

3 ) 

13P.00 

*3.  CO 

( 

4) 

147,00 

44.  CO 

( 

5 ) 

157.00 

% 

6*).  CO 

( 

16) 

% 

153. 0C 

194. CC 

( 

17  ) 

)4fl .00 

233.  CC 

( 

IP  ) 

161.00 

267.  (0 

( 

1°  ) 

1*2,00 

205. CO 

( 

20) 

155.00 

316. CO 

LFNGTH= 

351 .8? 

( 

51  « 

' I1  HN  L INF 

( 1) 

52,00 

9. CO 

( 2) 

81.00 

43.  CO 

( 3) 

R4.00 

61  . CO 

( 4) 

52.00 

63.  CO 

( 5) 

♦ 

84,00 

63.  CO 

( 20  ) 

* 

92,00 

280. CO 

( 21  ) 

96 ,00 

>83. 00 

( 2?  ) 

96,00 

293.00 

LFNGTH» 

29  7 

.99 

( 6 ) ♦ 5 ' 

1 ON 

1 14' F 

( 

1 ) 

87.10 

1*1 . CC 

( 

?) 

7R.00 

148. CO 

( 

3) 

74.00 

1 *59,  CC 

( 

4) 

1R  . 00 

167.cn 

( 

5) 

% 

81  .00 

1R6. CO 

( 

26  ) 

# 

% 

161.00 

’1  1.  CC 

( 

? 7 ) 

169 .00 

??3 . CO 

( 

?P  ) 

17? .00 

77  7.  CO 

( 

?Q  ) 

1 76 . 00 

??  7 , CC 

( 

?0  ) 

IQC.00 

238. CO 

1.FNGTH*  2 1 ° • 2 6 


FROM 


0. 


0. 
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F-vn  Mrs 


DATUM 


1 ) 
? ) 
3 ) 
) 

5) 
f-  ) 
7) 
*) 
° ) 
10  ) 


60  ) 

61) 
6?) 
6?) 
64  ) 
6 c ) 
) 

67) 


o 


VAtur 


o 

o 

o 

o 

o 

•P* 


*09.00 

50. 00 
ss.oo 
! 5 • 00 

*?.no 

4P.no 

40.00 
3S.90 

17.00 
si  7. 00 


294.00 
■*20.90 

554.00 

503.00 
1042. 30 

277.00 

3095.00 

15504.00 


o 
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F-M  AP 

r PFNMS/LVV4IA  P'lP’JL  ATION  CFNSITV 
C proVNS  PC*  SO  JAR  F ‘Ml  f 


Ft.  F r T IV" 


1 MAn  M/.r  IS  >4,00  lfvCH=S  LONG  RY  3 A, 00  UTH"S  W 1 PF 

? m df  i pvf i s is  n 


( 

i rvn  si7:$  art  PRC.r..nTin*!Fo  to  n 

75.00  ') 

?5.00  3) 

50.00 

6) 

6) 

100.00  7) 

100.00  ft) 

100.00 

0) 

10 

map  TF  XT 

1 0A5  0 ' TA 
0.  F.  GFRLAFH 

n 

ma^  sr  M u IS  o.n 

16 

MARGIN  SHIFTS  APF  t • c 0 AT  TOPt 

1.50  AT  l F FT  f 

?.00  AT 

RPTTOMt 

ANn 

lc  NO  NIJMRFR  OF  I INFS  *>  = « ! Nr H !S  6.00 
T IMF  = IP!  16!  ?3.S5 

ELAPSE  TIME  = 11.56  SPCn>l  > S FOR  INPUT 


100.00  5)  100.00 

600.00  10)  14586.00 


1 .50  AT  RIGHT 
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M AP 


nFN|‘JSYL  VAN  I A innilLATinN  T T N S I TV 
PERSONS  {>  FR  M II  F 


MAP  SFAI.F  = 0.1100  INCH'S  flN  OUTPUT  MAP/UNITS  HN  S rll l P C ^ M AP 

MAP  SHHIL1  P E ’>»  INTEn  AT  <>.0  POWS  PEP  I NTH  ANO  10. 0 niLlHNS  pFR  INI 
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r 

S COST  ESTIMATE 

O 

0 Tor  the  jobs  listed  on  the  Sample  Input,  the  total  running  time 

g was  118  seconds  for  the  contour  map  and  168  seconds  for  the  con- 

formant map.  At  the  current  rate  for  computer  time  ($0. 11/sec.) 
at  The  Pennsylvania  State  University,  the  chargeable  time  amounts 
t>  are  the  following. 

Charge  to  user  = computer  time  + network  overhead 

I 

= $12.98  + network  over  ad — for  the  contour  map 
i = $18.48  + network  overhead — for  the  conformant  map 


CONTENTS— SYMAP 
pages 

1—  3 Identification  § Abstract 

5-  7 User  Instructions 

9-26  I/O 

27  Cost — Contents 


i 

' 4/71  27 

PS 

ERIC 


000  0047 


EDUCOM 


EDUCATIONAL  INFORMATION  NETWORK 

000  0048 


DESCRIPTIVE  TITLE 
CALLING  NAME 
INSTALLATION  NAME 


AUTHOR(S)  AND 
AFFILIATION(S) 


LANGUAGE 
COMPUTER 
PROGRAM  AVAILABILITY 


Quick-Draw  Graphics  System 
QDGS 

The  Pennsylvania  State  University  Compu- 
tation Center 

Jeff  Raskin,  The  Pennsylvania  State  Univ 
Computation  Center;  extended  and  revised 
by  Graham  Donaldson,  The  Pennsylvania 
State  Univ.  Computation  Center 

FORTRAN  IV 

IBM  System  360/67 

Decks  and  listings  presently  available 


CONTACT  Daniel  L.  Bernitt,  105  Computer  Build- 
ing, The  Pennsylvania  State  University, 
University  Park,  Pa.  16802 
Tel.:  (814)  865-9527 

FUNCTIONAL  ABSTRACT 


QDGS  is  a set  of  FORTRAN  subroutines  that  can  be  used  to  draw 
charts,  graphs,  diagrams,  maps,  or  any  other  form  of  pictorial  out- 
put. The  graphic  material  is  produced  on  the  CalComp  plotter  and 
other  graphic  devices  as  they  become  available. 

To  use  QDGS,  a program  is  written  in  FORTRAN  IV  for  the  IBM  System/ 
360  computer.  This  program  calls  the  QDGS  subroutines;  the  sub- 
routines produce  output  (in  the  form  of  cards  or  tape)  that  is 
later  put  into  a special  system  to  produce  the  actual  graphical 
output.  When  the  cards  (or  tape)  are  received  from  the  dispatcher 
and  the  user  has  verified  that  the  run  was  successful,  he  usually 
submits  the  cards  to  the  dispatcher  along  with  a plot  request  form. 

The  three  concepts  underlying  the  design  of  QDGS  are  (1)  the  des- 
cription of  an  elementary  picture  in  terms  of  coordinates,  (2)  the 
geometric  transformation  of  pictures  (into  various  positions  and 
orientations),  and  (3)  the  building  of  complex  pictures  from  ele- 
mentary ones.  There  will  be  subroutines  to  do  each  of  the  three 
basic  processes.  In  addition,  there  are  special  routines  to  draw 
axes  for  graphs  and  charts,  to  do  lettering  and  numbering,  and 
automatically  to  do  the  necessary  task  of  punching  the  cards  or 
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writing  the  tape  used  in  plotting  (physically  drawing  on  the  plot- 
ting device).  QDGS  is  intended  as  a nucleus  about  which  the  user’s 
graphic  routines,  tailored  to  his  own  unique  application,  can  be 
written. 
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USER  INSTRUCTIONS 
Initialization 


Before  any  portion  of  the  QDGS  may  be  used  by  a program,  four 
arrays  must  be  specified.  These  arrays  are  used  by  the  system  as 
a working  area  and  may  not  be  used  or  altered  in  any  way  by  the 
user’s  program.  It  is  difficult  to  estimate  the  size  of  the  arrays 
as  space  requirements  vary  widely  with  different  program;  however, 
the  following  declarations  will  do  for  many  jobs.  If  the  message 
LAVS  EXHAUSTED  appears,  the  1000  may  be  increased. 

REAL  0(6,1000) 

INTEGER  * 2 A(1000),  B(1000),  C(1000) 

Any  FORTRAN  variable  names  may  be  used  for  the  A,  B,  C,  and  D. 

The  first  subscript  of  the  D array  must  be  6.  Once  the  arrays 
have  been  initialized,  and  before  any  other  QDGS  subroutines  are 
called,  the  following  statement  must  be  used 

CALL  INITQ(A,B,C,D,1000) 

Defining  Elementary  Pictures 

Pictures  are  defined  in  Cartesian  coordinates;  however,  with  each 
point  (x,y),  we  now  associate  a third  coordinate  z,  which  has  a 
code  for  the  condition  of  the  plotter  pen  in  arriving  at  the  point 
(x,y).  The  convention  used  is  to  code  z = 0 to  indicate  ’’without 
drawing”  and  z = l to  indicate  ’’drawing.”  The  desired  picture  is 
achieved,  therefore,  by  storing  these  ordered  triples.  This  is 
the  purpose  of  the  ADPTQ  subroutine  (see  Summary  of  Subroutines). 

Building  Pictures  from  Pictures 

In  the  QDGS,  pictures  are  formed  out  of  line  segments  defined  with 
ADPTQ  and  by  transformed  versions  of  pictures  previously  defined. 

A geometric  transformation  is  applied  to  the  previously  defined 
picture  before  being  placed  into  another  picture.  There  are  six 
basic  transformations  (and  compounds  of  these)  allowed  by  the  QDGS: 

(1)  translation  in  X (TX) — motion  of  a figure  horizontally 

(2)  translation  in  Y (TY) — motion  of  a figure  vertically 

(3)  scaling  in  S (SX) — horizontal  expansion  or  contraction 

(4)  scaling  in  Y (SY) — vertical  expansion  or  contraction 

(5)  rotation  (TH) — the  TH  is  for  theta,  traditonally  used  to  de- 
note an  angle — here  measured  counterclockwise  in  radians 
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(6)  skew  (or  shear)  (SK) — a tilting  that  leaves  height  unchanged, 
measure  in  radians  clockwise  from  the  positive  Y direction 

Transformations  are  represented  by  variables  and  must,  therefore, 
be  dimensioned  (using  6 as  the  dimension);  their  values,  however, 
are  set  by  calling  the  subroutine  XFSTQ.  Compound  and  inverse 
transformations  may  be  performed  by  using  subroutines  XFXFQ  and 
XFINQ,  respectively.  Adding  pictures  (building  more  complex  ones) 
can  be  achieved  by  using  ADELQ,  which  also  allows  a picture  to  be 
transformed  before  being  added  to  another  picture. 

Displaying  a Completed  Picture 

Once  a picture  has  been  created  and  given  a name,  the  card  or  tape 
output  representing  it  may  be  obtained.  Up  to  now,  pictures  have 
been  described  in  terms  of  abstract  coordinates,  but  the  physical 
size  is  determined  by  a physical  scale  factor  in  the  call  to  the 
outputting  routine,  subroutine  DISPQ.  The  scale  factor  itself, 
however,  is  determined  by  the  desired  units  of  the  user  and  the 
plotter’s  raster  unit.  (A  raster  unit  is  the  smallest  distance 
over  which  a line  can  be  drawn  by  a particular  device.) 

Axes 

A single  subroutine,  AXISQ,  provides  a logarithmic  or  linear  axis 
with  appropriate  labeling  of  the  tic  marks  as  an  option. 

Drawing  Labels  and  Titles 

A legend  on  a graph  or  chart,  the  text  that  accompanies  a drawing, 
sizes,  tolerance,  and  the  like  are  produced  by  subroutine  LABLQ 
(for  alphamerics)  and  NMBRQ  (for  numbers) . A label  is  itself  a 
picture  and  differs  from  other  pictures  only  in  that  a subroutine 
sets  up  the  picture  automatically.  The  user  transforms  it  to  the 
desired  size  and  position  by  using  the  same  transformations  as  for 
any  other  picture. 


REFERENCES 

Primer  on  the  Quick-Draw  Graphics  System  (QDGS) , Pa.  State  Univ. 
Computation  Ctr.  (July  1967). 
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SAMPLE  INPUT  WITH  CORRESPONDING  OUTPUT 


EXAMPLE  OF  A COMPLETE  PROGRAM  WITH  OUTPUT 


PROGRAM  TO  PRODUCE  FIGURE  8 FOR  THE  QDGS  PRIMER 
INITIALIZATION 

INTEGER*2  A(1000) ,B(1000) ,C(1000) 

INTEGER  M/0/ 

REAL  D(6, 1000), Q(6), PI/3. 141593/ 

CALL  INITQ(A,B,C,D,1000) 

CREATE  TRANSFORM  FOR  Y-AXIS 

CALL  XFSTQ(0. 0,-1. 5, 1.00, 1.00, PI/2. 0,0. 0,Q) 

PUT  THE  AXIS  ONTO  PICTURE  M 

CALL  AXISQ(3. 0,6, -0.3,0. 1,-0. 08, 1,Q,M) 

CREATE  TRANSFORM  FOR  THE  X-AXIS  AND  ADD  AXIS  TO  M 
CALL  XFSTQ(0. 0,0. 0,1. 00, 1.00,0.0,0.0,Q) 

CALL  AXISQ(3.0.-3,1.0,10.0,0,08,-1,Q,M) 

PREPARE  A TRANSFORM  FOR  THE  LABEL 
CALL  XFSTQ(1.5,-  .75, .12, .13,0. , ,3,Q) 

ADD  THE  LABEL  TO  M 

CALL  LABLQ(' FIGURE  8',-8,Q,M) 

DISPLAY  THE  COMPLETED  FIGURE  8,  SCALED  FOR  THE  CALCOMP 
CALL  DISPQCM, 200.0) 

NOTE:  ALL  OF  THE  ILLUSTRATIONS  FOR  THE  QDGS  PRIMER  WERE 

DRAWN  ON  THE  CALCOMP  PLOTTER.  ONLY  THOSE  GRAPHIC 
SUBROUTINES  MENTIONED  IN  THIS  PRIMER  WERE  USED. 

STOP 

END 
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C PROGRAM  TO  READ  POINTS  AND  PLOT  A GRAPH 

C 

C ASSUME  THE  RANGES  OF  X AND  Y ARE  KNOWN 

C X:  -5  TO  +5  Y:  -2  TO  +2 

C AND  THE  (X ,Y)  PAIRS  HAVE  BEEN  SORTED  IN  ORDER  OF  INCREASING  X. 

C CALL  THE  GRAPH  "GRAPH" 

INTEGER  GRAPH/O/, PLUS/O/, INPUT/5/ 

C INITIALIZE 

INTEGER*2  AA( 1000) ,BB(1000) .CCilOOO) 

REAL  DD(6, 1000), PI/3. 141593/ ,0(6) 

CALL  INITQ(AA,BB,CC,DD,1000) 

C 

C PUT  X-AXIS  ON  GRAPH 

C MAKE  AXIS  RUN  FROM  -5  TO  +5  WITH  10  SEGMENTS,  THUS  'SIZE'  IS 

C 10.  AND  'K'  IS  10.  AXISO  PROVIDES  AN  AXIS  STARTING  AT  0 AND 

C STRETCHING  IN  THE  POSITIVE  X-DIRECTION.  THEREFORE,  SET  TX=-5. 

C IN  ORDER  TO  START  THIS  AXIS  AT  -5.  NUMBER  EACH  TIC  MARK 

C STARTING  WITH  -5  AT  THE  LEFT  END  AND  INCREMENTING  BY  1. 

C SUPPRESS  THE  DECIMAL  POINT('N  =-l)  AND  MAKE  THE  DIGITS  .1  UNIT 

C HIGH( 'HITE ' =. 1 ) . 

CALL  XFSTQ(-5. ,0. ,1 . ,1 . ,0.  ,0. ,Q) 

CALL  AXISQ( 10. ,10  . -5.  ,1 . ,. 1 ,-l ,Q .GRAPH) 

C LABEL  X-AXIS 

C MAKE  LETTERS  .1  HIGH  TO  MATCH  NUMBERS.  USE  N=-10  TO  CENTRE 

C LABEL  AT  (4., -.5) 

CALL  XFSTQ(4  ,-.5, . 1 ,. 1 ,0.  ,0.  ,Q) 

CALL  LABLO('X- VARIABLE  ,-10,0, GRAPH) 

C PUT  Y-AXIS  ON  GRAPH 

C USE  ’SIZE1 =4 . THIS  GIVES  AN  AXIS  FROM  0 TO  4 IN  X-DIRECTION. 

C ROTATE  BY  PI/2  FOR  AXIS  FROM  0 TO  4 IN  Y-DI RECTI  ON.  TRANSLATE 

C BY  -2.  FOR  AXIS  FROM  -2  TO  +2  IN  Y-DI RECTION.  NUMBER  TIC  MARKS 

C AS  BEFORE  BUT  USE  'HITE '=-. 1 TO  PUT  TIC  MARKS  AND  NUMBERS 

C ON  THE  OTHER  SIDE. 

CALL  XFSTQfO . ,-2.  ,1 . ,1 . ,PI/2.  ,0.  ,Q) 

CALL  AXISQ(4. ,4,-2. ,1. ,-.1,-1 ,Q, GRAPH) 

C LABEL  Y-AXIS 

C MAKE  LETTERS  .1  HIGH  TO  MATCH  NUMBERS.  USE  N=-10  TO  CENTRE 

C LABEL  AT  (-.4,1.) 

CALL  XFSTQ (-.4,1 . , . 1 , . 1 ,PI/2. ,0. ,Q)  t 

CALL  LABLO('Y- VARIABLE'  ,-10, Q, GRAPH)  (jj 

C IF  DATA  POINTS  ARE  TO  BE  DENOTED  BY  A SPECIAL  SYMBOL, 

C CREATE  IT  NOW,E.G.,A  PLUS  SIGN  CALLED  "PLUS" 

C MAKE  IT  SO  THAT  THE  PEN  IS  BACK  AT  THE  STARTING  POINT  AFTER 

C DRAWING  IT.  ALSO  MAKE  IT  A STANDARD  SIZE(1  BY  1). 

CALL  ADPTQf-. 5,0., 0, PLUS) 

CALL  ADPTQ  .5,0., 1, PLUS) 

CALL  ADPTQ(0.,-. 5,0, PLUS) 

CALL  ADPTQ  0... 5,1, PLUS) 

CALL  ADPTQ  (0..0..0,  PLUS) 

C 

C MOVE  PEN  TO  FIRST  OATA  POINT  WITHOUT  DRAWING  A LINE. 

READ(INPUT,2,END=4)  X.Y 

2 FORMAT (2F1 0.2) 

CALL  ADPT0(X,Y,0, GRAPH) 

C OMIT  NEXT  SET  OF  STATEMENTS  IF  NO  SPECIAL  SYMBOL  IS  TO  BE 

C PLACED  AT  THIS  POINT. 

C MAKE  PLUS  SIGN  .1  UNIT  SQUARE  ON  GRAPH, PLACED  AT  (X.Y) 

CALL  XFSTQ  (X.Y,  .1,.  1,0.,  0.  ,Q) 

CALL  ADELQ ( PLUS ,Q, GRAPH) 

C READ  DATA  POINTS  AND  PUT  ON  GRAI'H 

3 READ(INPUT,2,END=4)  X.Y 

C OMIT  NEXT  STATEMENT  IF  POINTS  ARE  NOT  TO  BE  JOINED  BY  A LINE 

CALL  ADPTQ(X,Y,1, GRAPH) 

C OMIT  NEXT  SET  OF  STATEMENTS  IF  NO  SPECIAL  SYMBOL  IS  TO  BE 

C PLACED  AT  EACH  POINT. 

CALL  XFSTQ ( X , Y , . 1 ,.  1 ,0.  ,0.  ,Q) 

CALL  ADELQ(PLUS,Q, GRAPH) 

C (X.Y)  HAS  NOW  BEEN  ADDED  TO  GRAPH 

SO  TO  3 
C 

4 CONTINUE 

C GRAPH  IS  COMPLETED.  CHOOSE  SCALEFACTOR  AND  DISPLAY  IT. 

CALL  DISPO(GRAPH ,200. ) 

STOP 

END 
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o For  the  jobs  listed  as  the  Sample  Input,  no  exact  timing  figures 

g were  available.  However,  none  of  the  included  examples  would 

require  more  than  15  seconds  of  computer  time  to  run.  At  the 
current  rate  of  charge  at  The  Pennsylvania  State  University 
($ 0 . 11/sec .)  , this  amounts  to  a maximum  of  $1.65  per  example. 

Approximate  charge  to  user  = $1.65  (maximum)  X number  of  examples 

+ network  overhead 


CONTENTS — QDGS 


pages 

1—2  Identification  § Abstract 

3—6  User  Instructions 

7-  8 I/O 

9 Cost — Contents 


c 

4/71 

o 

ERIC 


9 


000  0048 


EDUCOM 


EDUCATIONAL  INFORMATION  NETWORK 


000  0049 

r 

§ DESCRIPTIVE  TITLE 

o 

g CALLING  NAME 

INSTALLATION  NAME 


AUTHOR (S ) AND 
AFFILIATION(S) 


LANGUAGE 
COMPUTER 
PROGRAM  AVAILABILITY 

CONTACT 


FUNCTIONAL  ABSTRACT 

The  KGIC  program  was  written  to  facilitate  the  analysis  of  the 
environmental  distribution  of  graphic  characters.  It  produces 
a KWIC-like  listing  of  all  occurrences  of  a given  grapheme  along 
with  the  graphic  environment  in  which  each  instance  appeared. 

The  listing  may  be  sorted  either  forward  or  backward  from  the 
key  grapheme  to  facilitate  inspection.  Provision  is  made  for 
specification  by  the  user  of  special  alphabets  for  foreign 
languages  or  for  phonemic  transcriptions. 

If  any  word  appears  more  than  once  in  the  data  to  be  processed, 
only  one  set  or  records  will  be  produced  for  that  word.  A 
counter  will  be  increased  and  the  frequency  of  occurrence  printed 
in  both  the  alphabetical  listing  and  in  the  KGIC  listing.  The 
alpha  listing  thus  will  contain  a complete  frequency  count  of 
the  corpus  under  consideration. 

It  should  be  noted  that  whenever  the  user  can  attribute  phonetic 
or  phonemic  status  to  individual  graphemes,  the  KGIC  listing 
provides  correspondingly  significant  information  about  phonetic 
and/or  phonemic  environments. 


Key  Grapheme  in  Context 
KGIC 

Washington  University 
Computing  Facilities 

Joel  Achtenberg 
Computing  Facilities 
Washington  University 

PL/ 1 

S/360  under  OS 

Decks  and  listings  presently  available 

J.  Philip  Miller,  Computing  Facilities, 
Washington  University,  St.  Louis, 

Mo.  63130 

Tel.:  (314)  863-0100  ext.  4041 
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The  program  produces  the  items  listed  below  as  output. 

1.  an  alphabetical  listing  of  all  words  processed  by  the  KGIC 
program,  along  with  their  absolute  and  relative  frequencies 
of  occurrence, 

2.  the  KGIC  listing  itself  grouped  by  alphabetical  character, 
with  the  absolute  frequency  of  occurrence  given  for  each 
unique  occurrence,  and  the  total  number  of  occurrences  ’ 
and  the  total  number  of  unique  occurrences  given  for  each 
character , 

3.  a summary  table  containing  the  absolute  and  relative  fre- 
quencies of  occurrence  for  both  the  total  number  of  occur- 
rences and  for  the  total  of  unique  occurences, 

4.  optionally,  a horizontal  bar  graph  of  the  relative  fre- 
quencies of  all  occurrences  of  each  grapheme, 

5.  a number  of  summary  statistics,  i.e., 

a)  total  number  of  words  processed,  i.e.,  tokens 

b)  average  length  of  word 

c)  total  number  of  unique  words,  i.e.,  types  j ^ 

d)  the  type/token  ratio 

e)  total  number  of  characters  processed 

f)  total  number  of  unique  occurrences  of  all  characters 

6.  a statement  of  all  program  options  used  in  a particular 
run,  and  a complete  listing  of  the  EMICTT,  defining  the 
alphabet  in  use  for  that  run. 
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USER  INSTRUCTIONS 

A number  of  the  run-time  options  are  available.  One  or  more 
options  may  be  selected  by  including  the  appropriate  information 
in  the  data  set  OPTIN.  For  each  available  option,  except 
TITLE,  a default  is  indicated  which  will  apply  if  the  given 
option  is  not  specified.  Two  or  more  options  are  separated 
by  commas,  and  the  final  option  is  followed  by  a ser-icolon. 

1.  TITLE 

The  user  must  specify  a project  title  to  be  used  in  the 
headings  of  certain  parts  of  the  program  output.  The 
title  must  be  no  longer  than  80  characters,  including 
blanks,  and  must  be  enclosed  within  single  quote  marks, 
as  follows, 

TITLE  = 'users  project  title' 


2 . SORT 

As  indicated  previously,  the  KGIC  listing  can  be  sorted 
either  forward  or  backward  from  the  key  character . 
Merely  code  BACKWARD  or  FORWARD,  as  follows, 

SORT  = “ BACKWARD '“ 

' FORWARD ' 

If  SORT  is  not  specified,  the  list  is  alphabetized  for- 
ward by  default. 

3 . GRAPHX 

A horizontal  bar  graph  displaying  graphically  the  fre- 
quency of  occurrence  of  each  grapheme  which  appeared 
in  the  data  may  be  produced.  Code, 

GRAPHX  = 'YES ' ^ 

'NO' 

The  default  option  bypasses  graphing.  N 

/ 

4.  SPACING 

To  indicate  desired  spacing  of  the  alpha  and  KGIC 
listings,  merely  code 

SPACING  = n 

where  n is  the  number  of  lines  skipped  after  printing. 
Default  is  1 (i.e.,  single  spacing). 
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5.  EMICTT 

Because  the  program  is  designed  for  graphic  analysis  of 
foreign  languages  as  well  as  English,  provision  has 
been  made  for  the  specification  of  special  alphabets 
designed  by  the  user  for  foreign  languages  or  for 
phonetic  transcription.  Such  specification  is  done 
through  the  Expanded  Master  Input  Character  Translate 
Table  (EMICTT),  which  consists  of  two  major  parts. 

The  first,  MICTT,  specifies  the  use  to  be  made  of 
each  of  the  256  characters  recognized  by  the  360.  The 
codes  employed  are  as  follows. 

1 = Ignore,  not  used  as  print. 

2 = Delimiter  for  ID  fields,  comments, 

titles,  and  other  information  to 
be  ignored  in  processing. 

3 - Space. 

4 = Character  to  be  considered  part 

of  the  alphabet  in  use. 

If  any  character  other  than  1 to  4 is  coded,  the  improper 
code  will  be  replaced  by  code  4,  and  an  error  message 
produced . 

The  second  part  of  EMICTT  specifies  the  character  (s)  to 
be  produced  on  output  for  each  character  designated 
as  part  of  the  alphabet  (i.e.,  those  coded  '4').  There 
are  two  possibilities.  First,  each  character  can  be 
represented  by  a single  character  from  the  S/360  TN 
train,  or  other  available  print  train.  Second,  for 
additional  flexibility,  two  characters  may  be  over- 
printed to  yield  a composite  character.  For  example, 
the  break  character  (_’ ) might  be  used  to  distinguish 
low  toned  vowels  from  other  vowels.  In  either  case, 
printing  is  determined  by  specification  of  the  appro- 
priate character  in  either  PRT(l),  for  base  characters, 
or  PRT(2),  for  overprinted  characters. 

For  both  MICTT  and  PRT(l)  and  PRT(2),  default  values 
specified  are  for  the  standard  English  (ROMAN)  alpha- 
bet, as  given  in  Appendix  A.  Changes  are  made  in 
MICTT  by  coding  as  follows, 

MICTT  (xxx)  = n 
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where  xxx  is  the  decimal  number  from  1 to  255  speci- 
fying the  internal  character  under  consideration,  and 
n is  the  usage  code  (1-4).  Changes  are  made  in  the 
print  routine  by  coding 

PRT (i , xxx)  = ’c' 

where  xxx  is  the  decimal  number  from  1 to  255,  i desig- 
nates the  portion  of  PRT  involved  (i.e.,  1 ■ base 
character,  2 = overprint),  and  c is  the  punched  code 
for  the  desired  print  character. 

Note  that  hex  zero  is  a reserved  character  used  in 
the  production  of  the  alpha  listing.  Attempts  to 
change  MICTT  (0)  or  PRT(i,0)  will  be  ignored  and  an 
error  message  produced. 

Multiple  changes  in  PRT  and  MICTT  can  be  made  by 
separating  them  by  commas. 

For  example,  to  treat  the  hyphen  (-)  and  the  apos- 
trophe (’)  as  characters  to  be  ignored  rather  than 
part  of  the  alphabet,  code  as  follows, 

MICTT (96)  = 1,  PRT (1 ,96)  = ", 

MICTT  (125)  = 1,  PRT  (1,12  5)  = ", 

A modification  of  EMICTT  for  use  with  a phonemic 
transcription  of  the  Mayan  Language  is  shown  in 
Appendix  B.  Upper-case  consonants  are  used  for 
glottalized  sounds.  High-,  mid-,  and  low-toned 
vowels  are  represented  by  upper-case,  lower-case 
and  underlined  lower-case  vowels  respectively. 


Description  of  Input 

Input  consists  of  two  files,  one  carrying  the  run-time  program 
options  (OPTIN),  and  the  other  carrying  the  data  itself  (SYSIN) . 

File  OPTIN  consists  of  one  or  more  cards  containing  the  user- 
specified  project  title  and  one  or  more  program  options,  or 
none  at  all.  The  title  and  each  of  the  program  options  are 
separated  from  each  other  by  commas,  and  the  final  option  is 
followed  by  a semicolon.  If  no  program  options  are  specified 
the  title  must  be  followed  by  a semicolon. 
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A typical  example  might  be  as  follows, 
//GO  . OPTI  N DD  ;c 

TITLE  = ’MAYAN  PROJECT ' , SPACING  = 2 
GRAPHX  = 'YES'; 


File  SYSIN  carries  the  data  to  be  analyzed.  The  input  stream 
may  contain  any  acceptable  8-bit  code  except  0000000  (hex  00) 
which  is  reserved  for  internal  use.  For  example, 

//GO. SYSIN  DD 

THIS  IS  A SAMPLE  OF  INPUT  DATA.  DEFAULT  VALUES  OF 
MICTT  WILL  IGNORE  PUNCTUATION  AND  BYPASS  ALL  CHARAC- 
TERS BETWEEN  PARENTHESES.  FOR  EXAMPLE  (TITLE  IS 
’’SAMPLE  DATA”)  WILL  BE  IGNORED. 

/** 


Running  Instructions 

The  KGIC  load  module  is  contained  in  a partitioned  data  set 
DS09810 . JALIB , stored  in  disk,  and  can  thus  be  executed  directly 
without  compilation.  In  addition  to  the  data  input  file,  SYSIN, 
and  the  program  options  file,  OPTIN,  the  program  requires  three 
work  files  for  the  SORT  routine  and  the  file  SYSPRINT  which  con- 
tains the  program  output. 

The  JCL  for  a typical  run  is  illustrated  below.  This  is  only 
an  illustration,  however,  and  must  be  adapted  to  the  user's 
specifications . 


— current  OS  JOB  card — 

//JOBLIB  DD  DSNAME=DS09810. JALIB, DISP=SHR 
//  EXEC  PGM=KG I C 

/ / SORTWKO  1 DD  UNI T=SYSDA, SPACE=(TRK,  500, , CONTIG) 

/ / SORTWKO  2 DD  UN  I T= (SY SDA, SEP=SORTWK0 1 ) , SPACE= (TRK,  5 0 0 , , CONT I G) 
/ / SORTWK03  DD  UN  I T= (SYS DA, SEP= (SORTWKO 2, SORTWKO  1 )) , 

//  SPACE=(TRK, 500, , CONTIG) 

//SYSOUT  DD  SYSOUT=A 

//SORTLIB  DD  DSNAME=SYS 1 .SORT LIB, DISP=SHR 
//SYSLIN  DD  UNIT=SYSDA,SPACE=(TRK,(10,10)) 

//SYSUTI  DD  UNIT=SYSDA,SPACE=(TRK,(10, 10)) 

//SYSPRINT  DD  SYSOUT=A  CONTAINS  THE  PROGRAM  OUTPUT 
//SYSIN  DD  UNIT=TAPE9,DISP= (OLD, KEEP)  CONTAINS  INPUT  DATA 

//OPTIN  DD  « 

— One  of  more  cards  with  program  options  and  project  title  — 
/*‘{ 
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Appendix  A;  Default  values  for  EMICTT 
EXPANDED  MASTER  INPUT  CHARACTER  TRANSLATE  TABLE 


CODE  PRT(l)  PRT (2) 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


DEC 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 


CODE  PRT (1)  PRT (2) 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

3 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

1 

1 

1 

1 
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DEC 

CODE 

PRT(l) 

PRT (2) 

DEC 

CODE 

PRT(l)  PRT (2) 

81 

1 

126 

1 

82 

1 

127 

1 

83 

1 

12*. 

1 

84 

1 

129 

4 

a 

85 

1 

150 

4 

b 

86 

1 

151 

h 

H 

c 

87 

1 

132 

4 

d 

88 

1 

155 

4 

e 

89 

1 

154 

4 

f 

9 0 

1 

135 

4 

g 

91 

136 

4 

h 

9 2 

1 

137 

4 

• 

i 

95 

1 

138 

1 

94 

1 

139 

2 

95 

1 

140 

1 

96 

4 

141 

1 

97 

1 

142 

1 

9 S 

1 

143 

1 

99 

1 

144 

1 

100 

1 

145 

4 

j 

101 

1 

146 

4 

k 

102 

1 

147 

4 

1 

105 

1 

148 

4 

m 

104 

1 

149 

4 

n 

105 

1 

150 

4 

0 

106 

1 

151 

4 

P 

107 

1 

152 

4 

q 

10S 

1 

153 

4 

r 

109 

4 

154 

1 

110 

2 

155 

2 

111 

1 

156 

1 

112 

1 

157 

1 

113 

1 

158 

1 

114 

1 

159 

1 

115 

1 

160 

1 

116 

1 

161 

1 

117 

1 

162 

4 

s 

118 

1 

163 

4 

t 

119 

1 

164 

4 

u 

120 

1 

165 

4 

V 

121 

1 

166 

4 

w 

122 

1 

167 

4 

X 

123 

1 

168 

4 

y 

124 

1 

169 

4 

z 

125 

4 

t 

170 

1 
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cr> 

rt- 

o 

o 

o 

o 

o 


DEC 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 
19  2 

193 

194 

19  5 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

20  7 
20  8 

209 

210 
211 
212 

213 

214 

215 


CODE 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

4 

4 

4 

4 

4 

4 

4 

4 

4 

1 

1 

1 

1 

1 

1 

1 

4 

4 

4 

4 

4 

4 

4 


PRT(l) 


A 

B 

C 

D 

E 

F 

G 

H 

I 


J 

K 

L 

M 

N 

0 

P 


PRT (2) 


DEC  CODE  PRT (1) 


216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 
24~6 

247 

248 

249 

250 

251 

252 

253 

254 

255 


4 

4 

1 

1 

1 

1 

1 

1 

1 

1 

4 

4 

4 

4 

4 

4 

4 

4 

1 

1 

1 

1 

1 

1 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

1 

1 

1 

1 

1 

1 


Q 

R 


S 

T 

U 

V 

w 

X 

Y 
Z 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 


PRT (2) 


« 
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Appendix  B:  EMICTT  for  a Mayan  Language  Project 

EXPANDED  MASTER  INPUT  CHARACTER  TRANSLATE  TABLE 


DEC 


O 

O 

o 

o 

o 

KO 


o 

ERIC 


0 

u 


4 


5 

6 
7 
S 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 
»»  •» 

33 

34 

35 


CODE  PRT(l)  PRT (2) 

1 

4 1 
4 b 
4 z 
4 Z 
4 c 
4 C 
4 h 
4 k 
4 K 
4 1 
4 m 
4 n 
4 p 
4 P 
4 s 
4 x 
4 t 
4 T 
4 w 
4 y 
4 A 
4 a 
4 a 
4 E 
4 e 
4 o 
4 I 
4 i 
4 i 
4 0 
4 o 
4 ° 

4 U 
4 u 
4 u 


£ t 


Characters  36-255  are  not  used  and  are  coded  1,  with  PRT(l) 
and  PRT (2)  null. 
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SAMPLE  INPUT 

Input  for  the  sample  program  consists  of  a data  stream  that  is 
not  keypunchable . However,  it  is  similar  in  content  to  the 
sample  given  in  the  Description  of  Input  section  of  the  User 
Instructions . 
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SAMPLE  OUTPUT 

ALPHA  LISTING  OF  IH£UT  I TEJJS 


A 

ALL 

AND 

BE 

BETWEEN 
CM  ISE 

CHARACTERS 

DATA 

DEFAULT 

DELIMITERS 

EXAMPLE 

FOR 

IGNORED 

INPUT 

IS 

KGTC 

MARKS 

MICTT 

OF 

PARAGRAPH 

PROGRAM 

PROVIDED 

PUNCTUATION 

SAMPLE 

TABLE 

THE 

THIS 

TITLE 

TO 

VALUES 
W ILL 


T Y PES  = 31 

TOKENS=  43 


KGIC:  KEY  GRAPHEME  IN  CONTEXT  LISTING 
A TYPICAL  KGIC  RUN  WITH  ENGLISH  DATA 


>»>>»»»»>»>>>»»>A«<  <<<<<<<<<<<<<<<<<<<<< 


A 

DATA 

TABLE 

CHARACTERS 

PARAGRAPH 

ALL 

VALUES 

PROGRAM 

SAMPLE 

EXAMPLE 

AND 

PARAGRAPH 

CHARACTERS 

PARAGRAPH 

MARKS 

DATA 

PUNCTUATION 

DEFAULT 

CAUSE 

THERE  ARE  A TOTAL  OF  23  OCCURRANCES  OF  GRAPHEME 

THERE  ARE  19  UNIQUE  OCCURRANCES  OF  GRAPHEME  A 


1 

2 


2 


2 


2 
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0 

1 

2 

1 

2 

1 

1 

1 

2 

1 

1 

1 

2 

2 

1 

2 

1 

1 

1 

2 

1 

1 

1 

1 

2 

2 

2 

1 

2 

1 


>>>>>>>>>>>>>>>>>>>>>>>>B<<<<<<<A^vWn<<<  <<<<<<<< 

BE 

BETWEEN 

TABLE 

THERE  ARE  A TOTAL  OF  4 OCCURRANCES  OF  GRAPHEME  b 

THERE  ARE  3 UNIQUE  OCCURRANCES  OF  GRAPHEME  B 


>>>>>>>>>>>>>>>>>>>>>>>>C<<<<<<<< <<<<<<<<<<<<<<<< 

KG  IC 

CAUSE 

CHARACTERS 
CHARACTERS 
MICTT 

PUNCTUATION 

't’HERE  ARE  A TOTAL  OF  6 OCCURRANCES  OF  GRAPHEME  C 

THERE  AR1?  6 UNIQUE  OCCURRANCES  OF  GRAPHEME  C 


>>>>>>>>>>>>>> >>>>>>>>>>D<<<< <<<<<<< <<<<<<<<<<<<< 

AND 

IGNORED 

PROVIDED 

DATA 

PROVIDED 

DEFAULT 

DELIMITERS 

THERE  ARE  A TOTAL  OF  . 9 OCCURRANCES  OF  GRAPHEME  D 

THER*£  ARF  7 UNIQUE  OCCURRANCES  OF  GRAPHEME  D 


>»>»»»»»»»>»>»£««<««<«<««<««« 

BE 

THE." 

CAUSE 

TABLE 

TITLE 

SAMPLE 

EXAMPLE 

IGNORED 

PROVIDED 

BETWEEN 

DEFAULT 

DELIMITERS 

BETWEEN 

CHARACTERS 

DELIMITERS 

VALUES 

BETWEEN 

EXAMPLE 

THERE  ARE  A TOTAL  OF  22  OCCURRANCES  OF  GRAPHEME  E 

THERE  ARE  19  UNIQUE  OCCURRANCES  OF  GRAPHEME  E 


000  0049 


>»>>>>>»>»>»>>> »»>F«<<<  X<<<<<<<<<<<<<<<<< 


DEFAULT 

FOR 

THERE  ARE  A TOTAL  OF  5 OCCURRANCES  OF  GRAPHEME  F 

THERE  ARE  3 U.NIQUE  OCCl/RR ANCES  OF  GRAPHEME  F 


>»>»>»>>»>»>>>»»>G<<<  <<<<<<<<<  <<<<<<<<<<<< 

KGIC 

IGNORED 

PROGRAM 

PARAGRAPH 

THERE  ARE  A TOTAL  OF  5 OCCURRANCES  OF  GRAPHEME  G 

THERE  ARE  4 UNIQUE  OCCURRANCES  OF  GRAPHEME  G 
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PARAGRAPH  1 

CHARACTERS  1 

THE  2 

THIS  2 


THERE  ARE  A TOTAL  OF  6 OCCURRAtlCES  OF  GRAPHEME  H 

THERE  ARE  4 UNIQUE  OCCURRANCES  OF  GRAPHEME  H 


A FEN  STATISTICS 


TOTAL  NUMBER  OF  WORDS  PROCESSED  (TOKENS)  IS  43 


NUMBER  OF  DIFFERENT 

WORDS  (TYPES)  IS 

31 

TYPE/TOKEN  RATIO  IS 

0.721 

TOTAL  NUMBER  OF 

CHARACTERS  PROCESSED 

IS 

204 

TOTAL  NUMBER  OF 

UNIQUE 

OCCURRENCES  OF  ALL  CHARACTERS  IS 

AVERAGE  LENGTH 

OF  WORD 

IS  4.744 

FREQUENCIES  OF 

OCCURRANCE  OF  EACH  GRAPHEME 

f. 

Aik 

OCCURRENCES 

UNIQUE  OCCURRENCES 

< GRAPHEME 

ABSOLUTE 

RELATIVE 

ABSOLUTE 

RELATIVE 

- 

0 

0.000 

0 

0.000 

0 

0.000 

0 

0.000 

T * 

0 

0.000 

0 

0.000 

a 

0 

0.000 

0 

0.000 

b 

0 

0.000 

0 

0.000 

c 

0 

0.000 

0 

0.000 

d 

0 

0.000 

0 

0.000 

e 

0 

0.000 

0 

0.000 

*'  f 

0 

0.000 

0 

0.000 

g 

0 

0.000 

0 

0.000 

h 

0 

0.000 

0 

0.000 

i 

0 

0.000 

0 

0.000 

j 

0 

0.000 

0 

0.000 

k 

0 

0.000 

0 

0.000 

1 

0 

0.000 

0 

0.000 

n 

0 

0.000 

0 

0.000 

n 

0 

0.000 

0 

0.000 

0 

0 

0.000 

0 

0.000 

P 

0 

0.000 

0 

0.000 

g 

0 

0.000 

0 

0.000 

c 

0 

0.000 

0 

0.000 

s 

0 

0.000 

0 

0.000 

t 

0 

0.000 

0 

0.000 

u 

0 

0.000 

0 

0.000 

V 

0 

0.000 

0 

0.000 

V 

0 

0.000 

0 

0.000 

X 

0 

, 0.000 

0 

0.000 

y 

0 

0.000 

0 

0.000 

z 

0 

0.000 

0 

0.000 

A 

23 

0.  113 

19 

0.117 

B 

4 

0.020 

3 

0.019 

C 

6 

0.029 

6 

0.037 

D 

9 

0.044 

7 

0.043 

E 

22 

0.  108 

18 

0.111 

F 

5 

0.025 

3 

0.019 

G 

5 

0.025 

4 

0,025 

H 

6 

0.029 

4 

0.025 

I 

16 

0.078 

12 

0.074 

J 

0 

0.000 

0 

0.000 

K 

2 

0.010 

2 

0.012 

O 

o 

o 

o 

o 

4* 

AO 


14 
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o 

o 

o 


L 

1b 

0.070 

11 

0.060 

M 

7 

0.034 

6 

0.037 

N 

7 

0.034 

6 

0.037 

0 

1 1 

0.054 

7 

0.043 

P 

9 

9.044 

0 

0.049 

Q 

0 

0.  000 

0 

0.000 

R 

13 

0.  064 

1 1 

0.068 

S 

11 

0.054 

a 

0.049 

T 

20 

0.098 

16 

0.099 

0 

6 

0.029 

6 

0.037 

V 

2 

0.010 

2 

0.012 

w 

3 

0.015 

2 

0.012 

X 

1 

0.005 

1 

0.006 

Y 

0 

0.000 

0 

0.000 

2 

0 

0.000 

0 

0.000 

0 

0 

0.000 

0 

0.000 

1 

0 

0.000 

0 

0.000 

2 

0 

0.000 

0 

0.000 

3 

0 

0.  000 

0 

0.000 

4 

0 

0.000 

0 

0.000 

5 

0 

0.000 

0 

0.000 

6 

0 

0.000 

0 

0.000 

7 

0 

0.000 

0 

0.000 

0 

0 

0.000 

0 

0.000 

9 

0 

0.  000 

0 

0.000 

c 
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A TYPICAL  KGIC  RUN  WITH  ENGLISH  UATA 


FREQUENCY  OF  OCCURRANCE  OF  EACH  GRAPHEME 


GRAPHEME 

2* 

4S 

6* 

RELATIVE  FREQUENCY 
8X  10* 

12% 

14% 

16* 

.8% 

2 

A ******************************************************** 

B ********* 

C ************** 

D ********************** 

E ***************************************************** 

p ************ 

G ************ 

H ************** 

I *************************************** 

K **** 

L *************************************** 

M ***************** 

N ***************** 

O ************************** 

p ********************** 

R ******************************* 

S ************************** 

T ************************************************* 

U ************** 

V * *** 

w ******* 

X ** 


o 

o 

o 

o 

o 

42* 

CO 


O 
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COST  ESTIMATE 

The  computer  costs  for  running  the  problem  listed  on  the  Sample 
Input  were  $3.30. 

Charge  to  user  ■ computer  costs  + network  overhead 

= $3.30  + network  overhead 
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DESCRIPTIVE  TITLE 
CALLING  NAME 


PL/I-FORMAC  Interpreter 
FORMAC 


INSTALLATION  NAME 


The  Pennsylvania  State  University 
Computation  Center 


AUTHOR ( S ) AND 
AFF I L I AT  I ON ( S ) 


R.  Tobey 

J.  Baker 
R.  Crews 
P.  Marks 

K.  Victor 


International  Business  Machines  Corpora 
tion 


LANGUAGE 

COMPUTER 


PL/I-FORMAC 
IBM  360/67 


PROGRAM  AVAILABILITY 


Source  code  available  on  tape 


CONTACT 


Dr.  Daniel  Bernitt,  EIN  Technical  Repre- 
sentative, Computation  Center,  105  Compu 
ter  Puilding,  The  Pennsylvania  State 
University,  University  Park,  Pa.  16802 
Tel.:  (814)  865-9527 


FUNCTIONAL  ABSTRACT 


FORMAC  is  a system  for  carrying  out  formal  manipulations  on  mathe 
matical  expressions.  This  allows  for  the  use  of  analytic  as  well 
as  numeric  techniques.  The  most  important  capability  of  FORMAC 
is  its  accommodation  of  mathematical  expressions  as  symbolic  enti 


ties  at 
program 


execution 

segment 


time.  For  example,  the  execution  of  the  FORMAC 


LET  ( 


A = 
B = 
C = 


X + 

2; 

A/B 


** 


2.8); 


may  be  interpreted  as  assigning  the  alphanumeric  value  (X+Y  )/2  + 
2.8  to  the  FORMAC  variable  C. 


FORMAC-  enables  the  user  to  analyze  expressions  by  identifying  co- 
efficients, common  denominators,  lead  operators,  and  some  charac- 
teristics of  the  operands.  Constants  can  be  factored,  left  in  a 
rational  form,  or  converted  to  real  notation.  New  expressions  can 
be  synthesized  by  the  simplification,  expansion  and  substitution  of 
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terms,  as  well  as  finding  the  derivatives  of  functions.  The  user 
can  specify  functions  completely  or  partially  in  addition  to  mak- 
ing use  of  the  PL/I  functions.  Procedures  are  available  for  trans- 
fering  arguments  between  PL/I  and  FORMAC  program  segments. 

REFERENCES 

Tobey,  R. , Baker,  J.,  Crews,  R. , Marks,  P.,  Victor,  K.,  "PL/I- 
FORMAC  Interpreter  User’s  Reference  Manual,"  IBM  Publ.  360D 
03.3.004  (1967).  Copies  of  the  User’s  Manual  will  be  avail- 
able through  The  Pennsylvania  State  University  Computation 
Center  to  any  user  with  a PSU  account  number. 
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O USER  INSTRUCTIONS 

LO 

o The  user  should  consult  the  reference  listed. 


o 

o 

o 


FORMAC  constants  can  be  integer,  floating-point,  rational,  or  sys- 
tems constants  such  as  e,  it,  and  i.  Note  that  this  latter  constant 
enables  FORMAC  to  handle  imaginary  expressions.  FORMAC  variables 
take  on  expressions  as  values  that  are  retained  as  symbolic  enti- 
ties. Variables  are  either  assigned  or  atomic — i.e.,  specified 
or  unspecified.  Expressions  in  FORMAC  are  written  in  essentially 
the  same  way  as  PL/I  expressions  but,  whereas  the  latter  evaluate 
to  numbers,  FORMAC  expressions  generally  evaluate  to  new  FORMAC 
expressions.  There  are  four  types  of  FORMAC  functions:  PL/ I- 

like  functions  (such  as  SIN  and  COS),  integer-valued  functions 
(such  as  factorials  and  combinational  expressions),  user-defined 
functions,  and  function  variables  (unspecified  functions).  Func- 
tions with  arguments  that  evaluate  to  constants  can  be  either  evalu- 
ated or  retained  as  symbolic  entities,  at  the  user’s  option. 

Program  Deck 

JOB-Control  Language  Statements  and  End-of-File  Cards  must  begin 
in  Col.  1;  for  FORMAC-PL/I  statements,  only  Cols.  2—72  are  used. 

JOB  Card  will  be  punched  by  The  Pennsylvania  State  University 
Computation  Center  personnel. 

EXEC  Card 

Columns 

1-  2 
4-  7 
9-21 
22-27 

Data  Card 

Co lumns 

1-17 

Program  Deck 

JOB  Card 
EXEC  Card 
Data  Card 


Contents 

// 

EXEC 

LIBRARY, PR0G= 
FORMAC 


Contents 

//DATA. INPUT  DD  * 


Program  Deck 

, ; 
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REFERENCES 

Tobey,  R.,  Baker,  J.,  Crews,  R.,  Marks,  P.,  Victor,  K.,  "PL/I- 
FORMAC  Interpreter  User’s  Reference  Manual,”  IBM  Publ.  360D 
03.3.004  (1967).  Copies  of  the  User’s  Manual  will  be  avail- 
able through  The  Pennsylvania  State  University  Computation 
Center  to  any  user  with  a PSU  account  number. 
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SAMPLE  INPUT 


/ / A A 1 1 ? R45  .10  R I Sfrnn?.  ftshOQ.  I s^n.  hrtAr.  > . » KMMftl.F  H> ...  ..  . 

U FV^r  I.  ! RR  AR  V . PWnfisFMAf.MT 

//nATA. input  nn  * 

• PIP  T SFT  ( L 1 NF  l.  F KiPTH«^MflP  T ) * 

«rr immlnt t»m  thp  FtiunuiNu  feXAMP U£iUJ! SJfiXN&ail-J flL‘UCAJ kS.~ I b F UHPiU-  L 

l mMMFNTS  TR  I MG  ? T^F  I IMD^PL  I A,F*'  T*l  l-n  1 *'hN«S  I IIMAL  Fill  T FD  tut  1 PUT  1 S 1 ^ H ' 
tCHMMFMTfl FSI IL  T MF  PROCESSING  RY  THE  I N.T.FRPA-FT.iU.I.UF-FiliL^AC.  . 

• P A R F ' 

imMMFNT  KF.mFRAI  FXAMpth-l 

•A  S ( X*#?  + 7/R)#*P' 

LB  g 2AXUUA±li  -»•  /^-A^iiir,(m<;<yi)» 

•f.nMMFNT  IIMSPFC1FIFD  F'  IMC  T fll^S  AMI1  OFw  ] \l  A T 1 WF  S * ■ 

«a  g..F,n«x*»?i  + U1MJLU 

• r = nFR  i v( Afyt?) • 

T.  * OFRPM  ATftNHiX**?)  t X.XJJ 

• n = n»v(w.  (iifvtw)  .*(  n,  vt,  *(?)♦?,  ♦(H),?)* 

'COMMENT  TRAMS  OPTION  FflR  I u AMr.FMOFM  TAt_  FUNCTION  j*VAUlAIlil.'.!« ...  

1 nPTSFT(MnTR AMS) * 

LA  £ 1/3' 

• r s s?N(y**4)  + L'ir,f?*A)  + svm(kp//)i 

TIPTSFT  ( TRAMS)  1 

•C  a R' 

• C n M m p N T TNT  DPTfllN  R]j  CIVR  j M A f !l  IMS  , FACTOR  I AL  y AMI)  FWAI.  j£Ap  A R 1 1. jJY,  * _ 

' OP  T SF T ( Nfl  1 M T ) • 

» y g r f)M + comr  (*>,«)..! ...... 

• A = FVAI.(V,MfS,K,  <)♦ 

'nPTSFTf  I NT  ) ' * 

• R a FVAI.  ( v .|\I,S,K  , <)  ' 

» f.DMMF  M T FUNCTION  0 F F I m l T I < 1 n AMO  EXPANSION  APPl.VfNO  M||l,Tt  AMH  jj  LSJl^_..LA!iS.'. .. 

• F M C ( n ) a * ( 1 ) + ?*SfN  (*(?))' 

« P a ft  ( X*»?  + ) , 7 ) ' „ 

• A a (X  + 4)**?  + R*(;>#X  + 7)~*  ( 7 - H ) » 

t r = py  pami>  (Aft 

If.nMMFMT  COMMflM  M-NOM,.  MU**,  HF'MIIM,  IJlW  AMO  H ] OH  POwFR  , AmO  r.HFFF* 

« A a V/7  + 7 + X/^« 

ir  = r.nnFMi  a)  i 

*v  = (7****^  + 7/3*x*»H ) / ( S IN( X)  + cns( x ) ) ' _ 

• A = NUM(V)1  ' R r nPNnM(V)'  'C  = Mf  r,uP(IM(  A,'x  ) ' 'll  a i.hwpnw(  A,X)  • 

' F a CflFFF  ( A , X**5  ) ' 

•CriMMFMT  FHIT  FFATUttR*' 

«A  a C)  + C?ncy  + C^WT^ 

• np tcft(  NHFni  t j ' * * 

» r.  a a » ; 

' f,  n M m p N T INTfUFFP  AMn  R A T 1 0 1'1  A I rj»NSTA^TS  WAY  RF  llFV/Ff.riPFl)  liw  ~SP  FC  f F 1 FI)  • 

l r.nMMPNT  >t<  f T FI  AS1  MANY  AS  SI  GM!  Ff  CANT  H f P, ! T S . ' 

• Y a t t^7,?71RA4R79F/5  ^ y>x«174» 

« A = nFRI  W(V,X,S)  » 

I R = F\/AI  ( A , x,?+11  / 1 2 ) ' 

T.nwMFNT  y = o;  x<-i,  x>i : v = i ; - 1 , =x< o;  Y ag n s (_x ) ; n<=x < 1 . • 

' v = stfp(-i,x,o)  + st'fp  ( n,  x,  ] ) V r.nsfxT' 

/* 
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SAMPLE  OUTPUT 


BoSSSSSSooooo o O o 

################ 

#######*##****** 

###########***** 


i±ii±iUi<Ui«U<U 

tOCOCOCOCOCOCOCOCOCOtOCOCOCOCOCO 

<<<<<<<<<<<<<<<< 
55f iff f f iiiiiiii 
:::::::::::::::: 


1 1 j j 


ftA 


d.<L(i(id.6.CL<i. - 

totototototototoiotototototototo 


i l i i i i 
o.  ql  & a.  a ql 


**************** 


XXXXXXXXXXXXXXXX 

UJUJUJUJUJUJUJUJUJUJUJUJUJUJUJUJ 

ffl^ffifflfflCC0^m®0®CDCOC0CD  QU 
O^OOQOOOC^OOQOCO 
ZZZ?ZZZ2Z2!Z2!Z?72 
XXXXXXXXXXXXXXXX 

tfMMCrtiniOlAlOlOlOlOlOlOlAlOiniO 

«->  cr>  n1^  f*-*  fn  po  cn  ro  cr' 
nnnnnmnnnnnnnnnn 

^^hhhhhhhhhhhh^hh 

<<<4<<<<<<<<<<<< 

<<<<<<<<<<<<<<<< 


tomaocDoooooooooDooacoooc  go  oo  go 

hh^hhhhhhhhhh^hh 

(TCDCUSJ60CD(SCDCDCDGQCOS)COaDCD 

ocooccooooucooc c 

ac*uuUGCGtc£a;c£<tt*ocataccc 

<<<<<<<<<<<<<<<< 

cocotocotocococococococooococooo 



• 

**************** 

**************** 

**************** 

7777777777  i i 7 i 7 • 

aa.cicicift.ft.ft  ^ a a a o.  a.  a ft 

cocooooocococooooocooooooooooooo 

<<<<<<<<<<<<<<<< 

xxxxxxxxxxxxxxxx 

**************** 

**************** 

**************** 

77 7 7 7 ii  i ii  • » • i i i 

ao.o.Q.aixdiieL&aadaaQ, 

Oooococococooooouocooocooocoo'''co 

<<<<<<<<<<<<<<<< 

xxxxxxxxxxxxxxxx 

**************** 

##**##**#*#***** 

a*************** 
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ft  ft 

a 

ft 

a 

Cl 

ft 

a 

& 

a 

a 

ft 

ft.  ft 

ft 

a. 

CO  00 

CO 

CO 

00 

CO 

CO 

00 

00 

CO 

00 

CO 

CO  CO 

00 

CO 

< < 

< 

< 

< 

< 

< 

< 

< 

< 

< 

< 

< < 

< 

< 

X x 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X x 

X 

X 

O 

o 

mJ 

X 

UJ 

ISAS 

E INPUT 
S THE 
M. 

x H UJ 
1-  H 

H CO 

a. 

00  D V 

UJ  0.  CO 

CO 

H H 

m 

< u o 

< 

X 

u c < 

H*  X 

hi 

O O CL 

X 

„J 

Z UJ  o 

oc 

M H U. 

o 

r* 


M 


< 

CJ 


IT* 


C 

Z 

X 


U 

< 

JC 


o 

ff 


(J 

o 

* 

II 

a 

»> 

M 

O 

o 

CO 


£ 

r 

10 


V 


c 


t Oil) 
II  UJ  > 


STRI  N( 
IONAL 
RE  TATI 

•• 

i to  a 

• 

z a 

0m 

to  UJ  UJ 

H 

UJ  I h 

a 

-J  H Z 

o 

X 

Cl  D H 

T 1 

to 

< 0 UJ 

II 

£ 

X * x 

Ujhh 

o 

o o > 

Z 

Z UJ  CO 

UJ 

*-•  z 

-J 

X ~ O 

UJ 

n -j  z 

z 

ja  w 

NM 

J UJ  to 

•J 

o o oo 

w 

< U.  z UJ 

H nC  DU 

UJ 

uj  n 

to 

mi  oc 

H 

II  H X Cl 

0 

X H 

n h z ti 

• 

U 1-  O 

42  OH 

Z 

-J  T -J 

N* 

LI  D 

aC 

z or  to 

H 

N4  h UJ 

to 

u ova 
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STR  ING*'  A » 

o 

A * »P  I X 

m 

o 

o 

o 

STRING*'  B « 

o 

B * . 3E-04 

o 

GENERAL  EXAMPLE. 

• IX**2  ♦ 7/: 
2 


UNSPECIFIED  FUNCTIONS  AND  DERIVATIVES.  . A p /vi 

STRING*' A * F.I 3*X**2  ) ♦ LOjIXI'I 


A ■ F.(  3 X I ♦ LN  1 X I 


STRING*' B * DER IV( A*  X*  2) ' I „ ...  , 

1 21  2 2 2 III  Z 

B ■ 3ft  F . I 3 X )X  -1/X  +6F  ,(3X  ) 


STRING*'C  * DERIVIATANH(X**2)  ♦ X,X)'I 
4 

C ■ 2 X / I -X  ♦!)♦! 


STRING*'D  * DRVIH.IU»V*W)* $(  1)*3*  *1  2)  *2  * $(3)»2)'I 
3 2 2 

II  2 3 ) 

D * H .(  Ui  Vi  H I 


TRANS  OPTION  FOR  TRANCENOENT AL  FUNCTION  EVALUATION. 

STRING*'3PTSET(N0TRANSI' ? 

OPTSETINOTRANS  I 

STRING*'  A * l/3'5 
A - 1/3 


STR ING*' B = SINtX**4)  ♦ LOGI2*A)  ♦ SIN(#P/6)'I 

4 


INT  OPTION  FOR  COMBINATIONS*  FACTORIAL*  AND  EVAL  CAPABILITY. 

ST  RING*' OPT SET (NOINT I ' I 
OPTSETINOINT) 

STRING*'Y  * COMBIN.K- 1)  ♦ CUMB(N,K)'; 
y • I Nl  K I H N)  K - 1 I 


C 


7 


ERIC 
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STRI NG* ' A * EVAL! Y,N» 5,K,3)' J 
A * ! 5j  2 I ♦ ! 55  Y ) 


STRING*'OPTSET! INTI*; 

OPTSET!  INT  I 

STRING-'B  * EVAL!Y.N,5.K,3»'; 
B ■ 20 


FUNCTION  DEFINITION  AND  EXPANSION  APPLYING  MULT.  AN0  DIST.  LAWS 

STRING*  • FNCI G!  * $11)  ♦ 2*  SI  N ( $ I 2 ) ) • J 
G * 2 SIN  I $1 21  ) ♦ *1  1) 


STRING*'®  = G!X*«2+l'Z)'t 
2 

P * X ♦ 2 SIN  I Z » ♦ l 


STRING* 'A  - ( X*4)**2  ♦ 3*!2*>«-Z)  * !Z-3>'; 

2 

A ■ 3 I Z - 3 ) I Z ♦ 2 X ) ♦ I X ♦ A ) 


STR IMG*' B * EXPAND! A ) ' < 

2 2 

B*  - 9 I ■ 10  X ♦ 6 I Z ♦ 3 Z ♦ X ♦ 16 


COMMON  DENOM.t  NUM*  DENQM,  LOW  AND  HIGH  POWER  AND  COEFF 

STRING*'A  * X/Z  ♦ Z ♦ X/W'5 
A ■ Z ♦ X / W ♦ X / Z 


STRING*'B  * CODEMI  A ) • S 
B*IXW*IX*ZW)Z)/I  ZW) 


STRING-'Y  * (Z*X**5  ♦ 7/3*X**3) /! SIN! X)  «•  COS! XI  I • ; 

5 3 

V ■ (X  Z ♦ 7/3  X ) / I SIN  ! X I + COS  I X ) ) 


STRING*' A*NUMI  V) • J 
5 3 

A * X Z ♦ 7/  3 X 


STR ING*' B * DEMON! Y) • { 

B * SIN  ( X ) ♦ COS  I X ) 


STRING*'C  * HIGHPOWI A»X) • 5 
C « 5 


STRING*'D  « LOWPOWl A. X) ' { 

o - 3 continued 
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uo 

STRING*'E  = COEFr( At X**5) • ; 

O 

F = 1 

O 

O 

O 

Ff)!T  ^EATIJRF. 

O 

S TR  I * A = Cl  + C2*X  ♦ 
2 

a * n ♦ x c?  ♦ x c i 

STRING*  • Qi’T  S.'T  (NOEO IT) ' S 
OPT  SFT (N7  F.DT  T ) 

s T « I n r;=  • c = a*  ; 

C * Cl  ♦ C2*X  ♦ C3*X**2 


INTEGF3  AND  RATIONAL  CONSTANTS  may  of  DEVELOPED  OR  SOFCIFIFD 
WITH  AS  MANY  AS  2295  SIGNIFICANT  DIGITS. 

STR  ING*  • Y = 116 7? 71 34 66755/5  * X4«^l  7^  • ; 
y » X** 174* 2 33 4542693 759 


STR  IMG® ' A = OFRIVI V,X,5I'J 
A * X** 169* 351 37 4831813 93 3781 33 6720 


STR ING* ' 8 * EVALIAfXf  2*11/ 121 ' ; 

8 * 1 72075290 106 7543 7 5 17480 3< 22 525 71 61 22 3586876421 1968938 17372 
953 841030055920105 25C 3623457536 78832 32 32 39245958 570433346085570 
'5074651 19 8421 7084232C6CS1 368 163 17026501 92 071 39081 86546167420740 
73866919362446127  47313685015P71714172039R8725358408990611693012 
4291 2865745893 21 38975434967041 C 15625/5573741 65629320277805 245 157 
•200 7421 520389396 Cl  140921 71  5 1508 £36 4.  . /0251  045231  C30693 7607988039 
2 72  5804  341 72401  592584257880  J 242  24 1 124 ‘•261364  303532  70  844 11 302454 
109408161641176161725710336  | 

Y=0:  X<-1|  x>li  V=ls  -l.*x<f  M=COSI  XI : 0<*X<1. 

STRING*«Y  * STEPI- 1»  X 1 0)  ♦ STFP(OtX,l)  * COSIXM; 

V « COSU1*STEPIO,X,1)  ♦ STEPI-ltXtC) 


■»*N0RM4L  STOP  WITH  INPUT  TO  FMACUT  EXHAUSTED** 


HASP  VERSION  2.M2C  51  CA1DS  READ  179  LINES  PRINTED  0 CARDS  PUNCHED  5 SECS  NET  CPU  TINE 
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COST  ESTIMATE 

For  the  job  listed  on  the  Sample  Output,  the  total  running  time 
on  the  central-processor  unit  was  10  seconds,  at  $0.11  per  second. 
The  chargeable  computer  time  was  $1.10. 

Charge  to  user  = computer  time  + network  overhead 

= $1.10  + network  overhead 


CONTENTS — F0RMAC 
pages 

1—  2 Identification  § Abstract 

3-  4 User  Instructions 

5-  9 I/O 

11  Cost — Contents 
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DESCRIPTIVE  TITLE 


FORMAC  Utility  Program 


CALLING  NAME  FMACUT 


INSTALLATION  NAME 


AUTHOR(S)  AND 
AFFI LI ATION (S ) 


LANGUAGE 


The  Pennsylvania  State  University 
Computation  Center 

Robert  Duquet 

Meteorology  Department 

The  Pennsylvania  State  University 

H.D.  Knoble  (assistance) 

The  Pennsylvania  State  University 
Computation  Center 

PL/1— FORMAC 


COMPUTER  IBM  System  360/67 


PROGRAM  AVAILABILITY 


Decks  and  listings  presently  available 


CONTACT  Dr.  Daniel  L.  Bernitt,  EIN  Technical  Rep- 
resentative, Computation  Center,  105 
Computer  Building,  The  Pennsylvania  State 
University,  University  Park,  Pa.  16802 
Tel.  : (814)  865-9527 

FUNCTIONAL  ABSTRACT 


The  FORMAC  version  available  at  The  Pennsylvania  State  University 
is  an  interpretative  system;  i.e.,  FORMAC  expressions  are  treated 
as  character  strings  that  are  evaluated  and  executed  at  run  time 
only.  These  character  strings  may  be  specified  by  reference  to  a 
PL/1  character-string  variable.  The  PL/1  variable,  in  turn,  may 
be  constructed  by  execution  of  the  PL/1  program  in  which  the 
FORMAC  statements  are  embedded.  FMACUT  merely  capitalizes  on  the 
last-named  feature.  FORMAC  statements  are  read  by  the  preprocessed, 
precompiled,  and  prelink-edited  program  and  are  passed  to  the 
FORMAC  package  as  character-string  arguments.  Note  that  this  is 
made  possible  also  because  FORMAC  variables  need  not  (in  fact  can- 
not) be  declared  in  the  PL/1  program.  Reference  1 should  be  con- 
sulted concerning  more-detailed  PL/1  FORMAC  information. 


FMACUT  will  execute  FORMAC  statements  that  are  supplied  as  input 
data.  It  effectively  divorces  FORMAC  from  PL/1  insofar  as  the 
user  is  concerned.  This  has  two  advantages'.  (1)  the  user  need 
have  no  knowledge  of  PL/1  to  use  FORMAC  and  (2)  FORMAC  is  avail- 
able without  preprocessing,  compilation,  or  link-editing  (which 
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saves  approximately  50  seconds  of  run  time  for  a null  job  on  the  o 

IBM  360/67) . The  corresponding  disadvantage  is  that  PL/1  facili-  © 

ties  and  those  (few)  FORMAC  statements  involving  a PL/1  direct  0 

interface  are  not  available  to  the  user.  ° 

tn 

REFERENCES  y 

Tobey,  R. , Baker,  J.,  Crews,  R. , Marks,  P.,  and  Victor,  K. , w 

"PL/1  FORMAC  Interpreter,"  IBM  Publ.  360D  03.3.004  (1967). 
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USER  INSTRUCTIONS 

FMACUT  may  be  executed  via  the  catalogued  procedure  LIBRARY.  The 
input  is  freeform;  i.e.,  card  boundaries  are  ignored.  FORMAC 
statements  are  written  within  single  quotes  (')  rather  than  within 
balanced  parentheses  following  the  word  LET.  For  example,  in- 
stead of  using  LET (X=A+B*COS (PL/ 2 ) ) , use  ' X=A+B*C0S (PL/2) ' . Only 
one  FORMAC  statement  may  be  enclosed  within  a given  pair  of  single 
quotes.  For  example,  instead  of  using  LET (X+A**2+C*A— D;  Y=COEFF 
(x,A**2)),  use  ’S=A**2+c*a-D'  ' Y=COEFF (X ,A**2) ' . NOTE:  The  single 

quote  terminating  one  FORMAC  statement  by  one  or  more  blanks  and/or 
one  comma.  An  individual  FORMAC  statement,  exclusive  of  its  en- 
closing quotes  may  be  no  longer  than  800  characters  in  length, 
including  blanks. 

To  facilitate  setting  FORMAC  options,  the  OPTSET  command  may  be 
used.  OPTSET  followed  by  the  desired  options  (optionally  enclosed 
within  parentheses)  must  be  enclosed  within  single  quotes.  For 
example,  'OPTSET  INT  EXPAND'  and  * OPTSET (PROPER) ' are  acceptable. 
All  options,  including  PRINT  and  NOPRINT,  may  be  used  and  may  be 
set,  changed,  and  reset  as  often  as  desired.  The  default  options 
are  LINELENGTH=LONG  (i.e.,  120),  PRINT,  TRANS,  INT,  NOEXPND , EDIT, 
and  IMPROPER.  OPTSET  is  a reserved  keyword. 

To  provide  the  capability  of  adding  comments  to  the  output,  the 
cOiiimand  'COMMENT -any  comment'  may  be  used.  For  example,  ' COMMENT - 
PROOF  BY  INDUCTION'  would  result  in  this  comment  being  printed. 
COMMENT  is  a reserved  keyword  and,  like  OPTSET,  may  not  be  used 
as  a variable  name. 

To  adjust  the  number  of  characters  that  will  be  printed  out  per 
line,  two  options  are  available:  ' OPTSET (LINELENGTH=LONG) ' will 

use  a full  page  (120  characters  per  line)  and  ' OPTSET (LINELENGTH= 
SHORT) 'will  print  out  in  a form  suitable  for  8k  X 11  in.  paper 
(72  characters  per  line) . When  using  the  latter  option,  comments 
should  be  limited  to  72  characters,  including  COMMENT. 

Capabilities  and  Limitations 

The  commands  SAVE  and  ATOMIZE  are  not  available.  In  general,  only 
those  FORMAC  statements  that  would  normally  be  enclosed  within 
parentheses  following  LET  may  be  used.  In  particular,  the  features 
ARITH , INTEGER,  IDENT,  EXCH,  and  double  quotes  (")  involving  a 
direct  PL/1  to  FORMAC  interface  are  not  available.  OPTSET  and 
COMMENT  are  available  as  explained  above.  If  a FORMAC  expression 
is  incorrectly  structured  with  respect  to  syntax  or  logic,  as 
described  in  the  FORMAC  manual,1  the  statement  is  bypassed,  an 
error  message  is  issued,  and  processing  continues.  One  special 
character  used  by  FORMAC — namely,  the  exclamation  point  (!) — is 
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not  available  on  the  QN  (normal)  print  train.  Therefore,  this  g 

character,  used  as  a factorial  sign  when  the  INT  option  is  off , o 

will  print  as  a blank.  This  limitation,  however,  is  not  probelm  0 

when  using  a terminal  via  RJE.  ® 

O 

The  transcendental - function  names  that  are  available  are  the  ^ 

following:  SIN,  COS,  SINH,  COSH,  ATAN,  ATANH,  ATAN(x,y) , LOG,  ^ 

LOGIO , LOG2 , ERF,  EXP,  SQRT,  SIND,  COSD,  TAN,  TAND,  TANH,  ATAND, 
ATAND(x,y),  and  ERFC . In  addition,  as  part  of  the  functional 
expression,  the  constants  #P=Pi,  #E=e  (base  of  natural  logs), 
and  #i=/^T  will  be  recognized.  [E.g.,  FORMAC  will  transform 
SIN(#P/6)  before  computation  to  1/2.1  The  functions  FAC(n)  = nl 
and  C0MB(n,m,n2,’ * * ,nk)  = [n  (n-1)  • * • (n-m-*  * *-nk+l)  ] / [n ! nj  ! • • • nfc!  ] 
also  are  available  for  n and  k non-negative  integers.  The  absolute- 
value  function  ABS(X)  is  not  available;  however,  this  operation 
may  be  effected  by  SQRT(X**2). 

The  number  of  significant  digits  in  any  floating-point  constants 
may  not  exceed  eight.  The  number  of  variables  and  degree  of 
expansion  are  limited  only  by  storage.  Most  of  these  limitations 
can  be  eliminated  for  a particular  case  by  modifying  FMACUT . 


Program  deck  and  Control  Cards  are  the  same  for  FMACUT  and  FORMAC, 
except  that  Cols.  22—27  of  the  EXEC  Card  contain  FMACUT. 

REFERENCES 

1.  Tobey,  R. , Baker,  J.,  Crews,  R.  , Marks,  P. , and  Victor,  K. , 
”PL/1  FORMAC  Interpreter,”  IBM  Publ.  360D  03.3.004  (1967). 
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SAMPLE  INPUT 


EXAMPLES  "STRING-"  INOICATES  THE 
TWO-DIMENSIONAL  EDITEO  OUTPUT  IS 


INPUT 

THE' 


•COMMENT 

•A 

•B 

•COMMENT 

•A 

•B 

•C 

•0 

•COMMENT 


//  EXEC  L IBRARV? PROG-FMACUT 
//OATA. INPUT  00  * 

QPTSET (L INELENGTH-SHORT)  • 

•COMMENT  IN  THE  FOLLOWING 

'COMMENTSTRING;  THE  UNDERLINED 

•COMMENTRESULT  OF  PROCESSING  BV  THE  INTERPRETATIVE  FORMAC  SYSTEM.' 

•PAGE* 

GENERAL  EXAMPLE.' 

I X**2  ♦ 7/3)*#P' 

3*SINIAM>  ♦ .3E-4*LOG  (COS  I Y > > • 

UNSPEC IF  I EO  FUNCTIONS  ANO  DERIVATIVES.' 

F.I3*X**2>  ♦ LOG IX) • 

OER I VI A,X , 2 ) • 

OERI V I ATANH I X**2 ) ♦ X,X>' 

DRVIH.IU,V,W),$I1),3,  $12), 2,  »(3),2)' 

TRANS  OPTION  FOR  TRANCENOENTAL  FUNCTION  EVALUATION.' 
•OPTSETINOTRANS)' 

•A  ■ 1/3* 

'B  ■ SIN(X**4)  ♦ LOG  1 2*A)  ♦ SINIAP/6)' 

•OPTSETITRANS)' 

•C  ■ B' 

•COMMENT  INT  OPTION  FOR  COMBINATIONS,  FACTORIAL,  ANO  EVAL  CAPABILITY.' 
•OPTSET (NOINT ) ' 

•Y  - COMBIN,K-l ) ♦ COMB  I N ,K ) ' 

•A  » EVAL (Y ,N,5 ,K,3) ' 

•OPTSET ( INT » • 

•B  ■ EVAL (Y ,N,5,K, 3) ' 

•COMMENT  FUNCTION  DEFINITION  ANO  EXPANSION  APPLYING  MULT.  ANO  OIST.  LAWS' 
•FNCIG)  ■ $11)  ♦ 2*SI N( $( 2 ) ) ' 


LOW  ANO  HIGH  POWER,  ANO  COEFF' 


• p 

K 

G(X**2+1,Z) • 

•A 

m 

1 X+4 ) **2  ♦ 3*(2*X+Z)  * (Z- 

•B 

= 

EXPANOI A) • 

•COMMENT 

COMMON  OENOM.,  NUM,  DENOM, 

•A 

s 

X/Z  ♦ Z ♦ X/W' 

•B 

* 

COOEMI A) • 

•Y 

■ 

(Z*X**5  ♦ 7/3*X**3)/ 1 SINIX 

• A* 

NUM(V)'  'B  - OENOM(Y) • *C 

•E 

■ 

COEFF 1 A »X**5 ) ' 

•COMMENT 

EO I T FEATURE.' 

•A 

r 

Cl  ♦ C2*X  ♦ C3*X**2' 

♦ COS  IX))' 
HIGHPUWI A, X I • 


•O  - LOWPOWI A , X ) • 


•OPTSET INOEOI T ) ' 

•C  ■ A' 

•COMMENT  INTEGER  ANO  RATIONAL  CONSTANTS  MAY  BE  OEVELOPEO  OR  SPECIFIEO' 
•COMMENTWITH  AS  MANY  AS  2295  SIGNIFICANT  OIGITS.* 


• V 
•A 
•B 

•COMMENT 

• Y 

/* 


* 11672713458795/5  * X**174' 

= OERIV I Y ,X,5 I • 

« EVAL(A,X, 2+11/12)' 

Y-O:  x<-l,  X>1;  Y-l : -l.*X<0;  Y-COSIX)*  0<=X<1.' 
» STEP(-1,X,0)  ♦ STEP (0 ,X , 1 ) * COSIXI* 


t 
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SAMPLE  OUTPUT 


STK INC*' OPTS ET (LINELENGTH= SHORT  I ' J 
LINFLFNGTH*  64 

IN  THE  FOLLOWING  EXAMPLES  "STRING*"  INDICATES  THE  INPUT 
STRING?  thf  UNDERLINED  Twn-OHFNSinNAL  edited  output  is  the 
RESULT  OF  PROCESSING  PY  THE  INTERPRETATIVE  FORPAC  SYSTEM. 


GENERAL  EXAMP|  F . 

STR ING= ' A = (X**2  ♦ 7/ 3)*RP ' • 
2 

A = HP  ( X ♦ 7/4  ) 


STRING='R  = 3*  SINI A + l I ♦ . 3E- 4*L0G (C ESI Y I I ' 5 

2 

R * . 3F-04  LN  I COS  I Y ) ) ♦ 3 SIN  I *P  ( X ♦ 7/3  ) ♦ 1 I 


UNSPECIFIED  FUNCTIONS  AND  DERIVATIVES. 

STRING*  n*  X **  2 I ♦ LOG  ( X ) * • 

2 

A * F.I  3 X ) ♦ LN  I X ) 


STRING*'  B * DERIV(A,X,2Vs 

(2)  2 2 2 <11  2 

B * 36  F . ( 3 X IX  -1/X  ♦ 6 F .(3X  ) 


STR I NG= ' C * DFRIV(ATANHIX**2)  ♦ X,X)'s 
4 

C * 2 X / I -X  ♦ 1 ) ♦ 1 


STRING* ' D * DRVIH.IU.  V.WIi  SI  l*i  3,  >121,2,  t(3),2)'l 

3 2 2 

(12  3) 

D * H .1  U,  V,  W ) 


TRANS  OPTION  FOR  TR ANCENDENTAL  FUNCTION  EVALUATION. 

STRING*'3PTSET(N0TRANS)'S 
OPTSFTIN.TTRANS  I 

STRING*' A * l/3'I 
A * 1/3 


STR  1 uG* ' B * SIN(X**4)  ♦ LOG!  2*A  ) ♦ SIN(#P/6I  I 

4 

8 * LN  I 2/3  ) ♦ SIN  I 1/6  #P  I ♦ SIN  I X ) 


STRING* 'OPTS ETC  TRAN SI ' ! 
OPTSETlTRANS I 

STR I NG='  C = 8'  S 


continued 
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C 3 SIN  ( X ) ♦ . (m53A89 


INT  OPTION  FOR  COMBINATIONS,  FACTORIAL.  AND  E VAL  CAPABILITY. 

STRING3 ' OPTSET (NO INT I ' ; 

OPT  SE  T ( NO INT ) 

STR  1 NG=  ' Y = COMB(N,K-l)  ♦ COMB(N.K)'; 

Y 3 ( NS  K I ♦ ( Nj  K - l I 


STRING='A  3 nVAL(Y,M,5,K.3)» J 
A 3 ( 5;  2 ) ♦ ( Bj  3 I 


STR I NG3 ' nPTSET ( INT)'  5 
OPT  SET! INT I 

STR ING3' B 3 EVALI Y.N, 5.K.3) ' S 
B 3 20 


FUNCTION  DEFINITION  AND  EXPANSION  APPLYING  MULT.  AND  DIST.  LAWS 

STRING3'FNC(G)  3 (111  ♦ 2*SIMt(2))'l 
G 3 2 SIN  ( t!  2)  ) ♦ M 1) 


STRING3”  3 G(  X**?*l»  Z t * t 
2 

P 3 X +2  SIN  ( l ) ♦ 1 


STRING3'A  3 ( X+A  1**2  ♦ 3*  ( 2*  >♦  7 ) * <Z-3)'S 

2 

A33(Z-3l(Z+2X)+!  MU 


STRING3'B  = EXPAND! A I ' ; 

2 2 

B*  -9Z-10X+AX7  ♦ 3Z  ♦ X ♦ 1A 


COMMON  DENOM.,  NUM,  OENOM,  LOW  AND  HIGH  POWER.  AND  COEFF 

STRING3' A 3 X/Z  ♦ Z ♦ X/W'  5 
A * Z ♦ . X / W ♦ X / Z 


STRING3'B  s COOEMt A)' . 

B = ( X W ♦ t X ♦ Z W ! Z I / ( ZW) 
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STR!NG*'V  = tZ*X**5  * 7/3*X**3)  /I  S I N I X)  ♦ COS(X)I') 

5 3 

Y - IX  Z ♦ 7/3  X ) / I SIN  I X ) ♦ COS  IX)) 


STRING*' A=NUMIY)'  J 


5 3 

A * X Z ♦ 7/  3 X 


STR ING*' B - DtNOMI Y ) • J 

b * sin  ( x ) ♦ rns  ( x ) 


STRING='C  * HIGHPDWIA.XI'i 
C - 5 


STRING*'  D = LCJWPOWI  A,  X)  ' 5 
D * 3 


STRING*'?  * CO EFF ( A, X** 5) • ; 
E * Z 


FDIT  FEATlJRF. 

STR ING*' A * Cl  ♦ C 2*X  ♦ C3*X**?'; 
2 

A * Cl  ♦ X C2  ♦ X C 3 


STR ING* 'OPT SET INOFDIT  )'; 
OPTSFTIN3  EDI T ) 

STR  IN G= ' C * A'  ; 

C * Cl  ♦ C2*X  ♦ C3*X**2 


INTEGER  AND  RATIONAL  CONSTANTS  RAY  BE  OCVELGPEO  OR  SPCCIFIFO 
WITH  AS  MANY  AS  2?95  SIGNIFICANT  DIGITS. 

STR ING*' Y * 11672713468795/S  * X**174'; 

Y * X**17 4* 2334542653759 


STRING*' A = OERIVI  Y,X,  5)'*, 

A * X**169*35l774B31013R337913Bt72O 
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COST  ESTIMATE 

For  the  job  listed  on  the  Sample  Input,  the  total  running  time  on 
the  central -processor  unit  was  10  seconds,  at  $0.11  per  second. 
The  chargeable  computer  time  was  $1.10. 

Charge  to  user  = computer  time  + network  overhead 

= $1.10  + network  overhead 
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DESCRIPTIVE  TITLE  Collection  of  Statistical  Routines 

CALLING  NAME  STPAC 

INSTALLATION  NAME  The  Pennsylvania  State  University  Compu- 

tation Center 


AUTHOR(S)  AND 
AFFI L I AT  ION ( S ) 


William  H.  Verity 
Nancy  C.  Daubert 

The  Pennsylvania  State  University  Compu- 
tation Center 


LANGUAGE 
COMPUTER 
PROGRAM  AVAILABILITY 

CONTACT 


FUNCTIONAL  ABSTRACT 


FORTRAN  IV 

IBM  System  360/67 

Decks  and  listings  presently  available 

William  H.  Verity,  104  Computer  Building, 
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STPAC  consists  logically  of  two  sections:  a monitor  and  a collec- 

tion of  statistical  routines.  The  monitor  is  a program  that  will 
read  all  Contro^  Cards,  save  the  original  data  if  required 'or  re- 
quested, save  any  intermediate  results  that  may  be  needed  I later  on, 
and  then  transfer  control  to  the  first  routine  requested.  When 
this  routine  is  finished,  it  returns  control  to  the  monitor,  which 
then  looks  to  see  if  there  is  more  work  to  be  done.  This  work  can 
be  of  several  different  types,  as  follows. 

1.  Using  the  same  data  deck  (but  possibly  different  columns  of  it), 
execute  the  same  routine  again. 

2.  Using  the  same  data  deck,  execute  another  routine.  Thus,  one 
deck  can  be  subjected  to  several  types  of  analyses  during  one  run. 

3.  Execute  another  program,  possibly  the  same  one  as  before,  on  a 
new  set  of  data. 

4.  Using  the  results  of  a previous  routine,  continue  to  another 
program  that  takes  these  results  as  input;  e.g.,  output  from  cor- 
relation can  be  the  input  to  regression  or  factor  analysis. 

The  statistical  routines  available  include  a variety  for  summary 
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of  data,  frequency  analysis,  tests  of 
variance,  and  rank  and  product— moment 
See  individual  abstracts  for  EIN  Nos. 
details  of  the  individual  statistical 


significance 
correlation 
000  0051(a)- 
rout ines . 


REFERENCES 

See  individual  abstracts  for  EIN  numbers  000  0051 


STPAC  ROUTINES 

EIN  No.  Calling  Name 


000  0051(a) 

(b) 

(c) 

(d) 

(e) 

(f) 

(g) 

00 

(i) 

(j) 
00 

(1) 

(m) 

(n) 

(o) 

(P) 

(q) 

(r) 

(s) 


FAWCS 

STSUM 

TTEST 

PPMCR 

SIGPP 

PARCOR 

CANON 

UPREG/DNREG 

FANAL 

VARMX 

PHICO 

KETAU 

SPRHO 

MNWHT 

KRWAL 

ANOVUM 

ANOVES 

AOVRM 

BARTL 


2 


, analyses  of 
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USER  INSTRUCTIONS 

To  use  any  of  the  programs  of  the  statistical  package,  STPAC  MUST 
BE  SPECIFIED  AS  THE  LIBRARY  NAME.  Programs  available  as  part  of 
this  package  are  identified  and  described  in  separate  writeups 
[EIN  Nos.  000  0051(a)— (s)] . 

Control  Cards  and  Their  Functions 

Problem  information  is  given  through  the  use  of  Control  Cards. 

Each  Control  Card  transmits  one  type  of  information  and  conveys 
to  the  user  its  function.  The  information  on  a Control  Card  is 
contained  in  one  or  more  fields,  where  a field  is  defined  to  be 
one  or  more  contiguous  nonblank  characters.  Fields  are  separated 
from  one  another  by  one  or  more  blank  spaces  or  commas,  thus  al- 
lowing the  user  to  punch  the  Control  Cards  without  regard  to  spe- 
cific columns,  although  the  fields  must  be  in  the  specified  order. 
The  only  restriction  is  that  the  first  field  must  begin  in  Col.  1. 
If  any  field  contains  special  characters  or  blanks,  it  must  be 
enclosed  in  single  quotation  marks. 

To  execute  any  given  analysis,  two  types  of  Control  Cards  will  be 
needed:  those  applicable  to  all  of  the  programs  in  the  package 

and  those  specific  to  the  program  at  hand.  The  Control  Cards  that 
can  apply  to  all  programs  are  described  next.  The  Control  Cards 
that  are  peculiar  to  an  individual  program  are  described. in  the 
appropriate  program  writeup.  Information  printed  in  capital  let- 
ters must  appear  on  the  Control  Card  letter  for  letter  as  it  is 
typed  and  all  fields  must  be  in  the  order  indicated. 

Execute  Card  (required  for  each  problem) 

Columns  Contents 

1-  7 EXECUTE 

9—13  Name  of  program  to  be  executed 

NOTE:  This  must  be  the  first  card  for  each  problem  under  STPAC. 

Comments  Card(s)  (optional) 

Columns  Contents 

1 * 

2- 80  Information  to  be  printed  on  a page  immediately  preced- 

ing output  (for  documentation) 

Any  number  (or  none)  of  these  cards  may  be  used. 
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Title  Card  (optional) 

Columns  Contents 

1-  5 TITLE 

6-80  Heading  to 

Variabl e Card  (may  or 


be  printed 
may  not  be 


on  each  section  of  output 
required) 


Columns  Contents 

1-  9 VARIABLES 

11-12  Number  of  variables  for  the  problem 

14-22  SEQUENCED 

24-25  Number  of  variables  on  each  Data  Card  (<_  number  in 

Cols.  11-12) 

27-32  PERCARD 

NOTE:  If  Cols.  14-32  of  this  card  are  specified,  then  it  is  in- 

ferred that  case  and  sequence  numbers  (strictly  increasing  only) 
are  on  each  Data  Card,  each  case  number  being  identified  in  the 
first  card  field  and  the  sequence  number  within  the  case  being 
given  in  the  second  card  field.  If  the  case  and  sequence  numbers 
are  missing  (or  it  is  not  desired  that  they  be  checked)  , entries 
in  these  columns  must  be  omitted.  In  this  instance,  either  all 
variables  fit  on  one  card  or  the  Format  Card  (see  below)  controls 
the  reading  of  more  than  one  card. 

Name  Card(s)  (optional;  first  form) 


Columns  Contents 

1-80  VARIABLE  NAMES  i=xxx,i=yvv,  etc. 

or 

TREATMENT  NAMES  i=xxx,i=yvy,  etc. 

One  or  more  of  these  cards  may  be  used  to  assign  alphanumeric 
names  to  each  variable  and/or  treatment.  Variable  (treatment)  i 
will  be  called  xxx,  j will  be  called  yyy,  etc.,  where  xxx  and  yyy 
represent  some  combinations  of  eight  or  fewer  characters,  at  least 
one  of  which  must  he  nonnumeral . If  the  card  is  omitted,  vari- 
ables (treatments)  will  be  numbered  sequentially.  It  is  also  poss- 
ible to  name  some  variables  (treatments)  and  to  allow  the  remaining 
ones  to  be  numbered.  In  addition,  xxx,  yyy,  etc.,  may  be  labelled 
with  a two-word  term  if  it  totals  no  more  than  eight  characters 
and  has  single  quotation  marks  around  it. 
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Example^  (starting  in  Col.  1) 

VARIABLE  NAMES  1=AGE, 2=PARTY 
TREATMENT  NAMES  1=HEIGHT, 2=’HAIR  COL' 

Name  Card(s)  (optional;  second  form) 


Columns  Contents 

1-80  VARIABLE  NAMES  TRANSFER 

or 

TREATMENT  NAMES  TRANSFER 

This  card  indicates  that  the  names  from  the  immediately  preceding 
problem  are  to  be  used  in  the  present  problem  (especially  useful 
when  results  from  one  problem  are  data  for  another) . 

Format  Card(s)  (may  or  may  not  be  required) 

Columns  Contents 

1-  6 FORMAT 

8 Number  of  cards  used  in  format  specification  (£3) 

10—80  Beginning  of  format  specification  (any  valid  FORTRAN 

FORMAT) 

NOTE:  If  the  number  of  cards  required  is  one,  the  format  speci- 

fication may  begin  in  Col.  8 (and  the  1 need  not  be  specified). 

If  more  than  one  card  is  required,  the  word  FORMAT  need  not  be 
repunched,  thus  making  all  80  columns  of  the  second  (and  third) 
card  available  for  use. 


Begin-Data  Card  (required  if  Data  Cards  are  to  be  used;  must  be 
omitted  if  data  from  previous  problem  are  to  be  used) 

Columns  Contents 

1-10  BEGIN  DATA 

This  card  must  immediately  precede  the  data  deck.  Previous  data 
are  no  longer  available  after  this  card  has  been  read. 

End-Data  Card  (required  if  Data  Cards  are  being  used) 

Columns  Contents 

1-  8 END  DATA 

This  card  must  immediately  follow  the  data  deck. 
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Same-Data  Card  (optional) 


O 

O 

o 


Co  lumns 
1-  9 


Contents 
SAME  DATA 


o 

o 

Cn 


This  card  indicates  that  the  last  set  of  raw  data  is  to  be  used 
allowing  a data  deck  to  be  used  over  and  over  again.  When  this 
card  is  used,  there  cannot  be  either  a Begin-  or  End-Data  Card. 


Input  Card  (optional) 


Co lumns 

1-10 

12-16 


Contents 

INPUT  FROM 


Name  of  program  already  run  (during  the  present  run) 
from  which  the  input  to  this  program  is  coming  (used 
when  the  results  of  one  program  are  the  input  to  an- 
other) . There  may  be  cases  in  which  the  input  may  be 
from  both  another  program  and  card  input.  Then, 
the  INPUT  FROM  and  BEGIN  DATA-END  DATA  sequence 
be  used. 


both 

would 


Stop  Card  (required  once  for  each  submission  to  the  package) 


Columns  Contents 

1—  4 STOP  (indicating  the  end  of  input  to  STPAC) 

Execution  of  all  programs  will  terminate  arter  this  card  is  read. 


Job  Deck  Structure 


EXECUTE  xxxxx  (required) 
Comments  Card(.s) 

Title  Card 
Variable  Card 
Name  Card(s) 

Format  Card(s) 

Other  cards  (required  or 


optional 

for  program  xxxxx) 
Same-Data  Card 

Input  Card  


May 

any 


be  in 
order 


Begin-Data  Card 
Data  Card(s) 

End-Data  Card 

Stop  Card 


Not  used  if  Same-Data  Card  is  used  or 
Input  Card  specifies  all  required  input 

(required  at  end  of  STPAC  input) 


Repeat 
for  as 
many 
problems 
(programs) 
as  neces- 
sary 


NOTE:  For  each  problem,  there  must  be  either  a Same-Data  Card,  an 
Input  Card,  or  a deck  of  Data  Cards  (beginning  with  the  Begin-Data 
Card  and  ending  with  the  End-Data  Card) . 
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5 SAMPLE  INPUT/OUTPUT 

o Sample  Input  and  Output  are  specific  to  the  various  routines. 
0 See  items  000  0051  (a)  — (s). 
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COST  ESTIMATE 


Inappropriate  for  STPAC  alone;  see  individual  routines  EIN  Nos, 
000  0051  (a)-(s) 


CONTENTS— STPAC 
pages 

1-2  Identification  § Abstract 

3-j  User  Instructions 
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9 Cost — Contents 
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DESCRIPTIVE  TITLE  Frequency  Analysis  with  Chi  Square 
CALLING  NAME  (STPAC)  FAWCS 

INSTALLATION  NAME  The  Pennsylvania  State  University  Compu- 

tation Center 


AUTHOR(S)  AND  C.B.  Broderick 
AFFIL I AT  1 0 N (S ) Department  of  Family  Relations,  The  Penn- 
sylvania State  University 

William  H.  Verity 

The  Pennsylvania  State  University  Compu- 
tation Center 


LANGUAGE 
COMPUTER 
PROGRAM  AVAILABILITY 

CONTACT 


FUNCTIONAL  ABSTRACT 


FORTRAN  IV 

IBM  System  360/67 

Decks  and  listings  presently  available 

William  H.  Verity,  104  Computer  Building, 
The  Pennsylvania  State  University,  Uni- 
versity Park,  Pa.  16802 
Tel.  : (814)  865-9527 


FAWCS' computes  (1)  discrete,  two-dimensional  frequency-distribu- 
tion tables  (often  called  contingency  tables')  whose  cells  contain 
an  actual  frequency  and,  optionally,  (2)  expected  frequencies  and/ 
or  percentages.  There  is  no  missing-data  code  inherent  to  the 
program,  but  the  user  may  specify  that  certain  categories  of  his 
variables  be  ignored  or  combined  with  one  another.  If  the  user 
has  any  2X2  tables,  he  may  request  that  the  Yates  correction  fac- 
tor be  used  in  computing  his  chi-square  value. 


FAWCS  will  cross tabulate  one  variable,  the  row  variable,  with  var- 
iables called  column  variables.  It  can  work  with  up  to  50  total 
variables  for  any  one  problem,  separately  cross tabulating  the  row 
variable  with  each  of  the  column  variables.  The  row  variable  can 
have  up  to  31  categories  where  0 is  a valid  category.  Thus,  the 
row  variable  can  be  coded  0 through  30.  Each  column  variable  can 
have  a maximum  of  13  categories  where,  again,  0 is  a valid  code. 
Therefore,  column  variables  can  be  coded  0 through  12.  Any  data 
outside  of  these  ranges  will  be  ignored . 
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USER  INSTRUCTIONS 

This  program  is  one  of  a collection  of  programs  that  are  all  exe- 
cuted using  the  library  program  STPAC.  The  writeup  for  STFAC  must 
be  consulted  for  the  description  of  additional  Control  Cards  and 
procedures  for  running  this  program. 


Control  Cards  and  Their  Functions 

In  addition  to  the  Control  Cards  applicable  to  all  programs  in 
STPAC,  FAWCS  uses  the  Control  Cards  that  are  described  in  the  fol- 
lowing. There  is  no  standard  format  for  raw  data,  but  if  totals 
data  are  used  they  must  be  punched  as  described  under  the  PUNCH 
option.  A Variables  Card  is  required  for  FAWCS* 

Row-Variable  Card  (required) 

Columns  Contents 

1-12  ROW  VARIABLE 

14—80  Variable  to  be  used  as  row  variable.  All  others  will 

become  column  variables.  It  may  be  specified  by  either 
the  name  or  the  number  assigned  to  it.  (If  Name  Cards 
were  not  used,  the  reference  to  the  variable  by  name 
would  be  permitted.) 

Percentages  Card  (optional) 


Columns 

Contents 

1 

1-11 

PERCENTAGES 

13-15 

ROW 

4 

or 

one  of  these 

13-18 

COLUMN 

This  card  indicates  that  percentages  are  to  be  computed  on  the  bas- 
is of  row  (column)  totals.  Only  one  choice  may  be  made  for  any  one 
problem. 


Chi-Square  Card  (optional) 

Columns  Contents 

1-10  CHI-SQUARE 

This  card  indicates  that  a chi-square  value  is  to  be  printed  for 
each  table,  as  well  as  the  probability  of  exceeding  this  value  by 
chance . 
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Yates -Correcti on- Factor  Card  (optional) 


Columns  Contents 

1-  5 YATES 

This  card  indicates  that  the  Yates  correction  factor  should  be 
used  in  any  2X2  tables  that  are  developed.  It  will  be  used  only 
in  computing  the  chi  square. 

Expected-Frequency  Card  (optional) 

Columns  Contents 

1-  8 EXPECTED 

This  card  causes  the  expected  cell  frequencies  to  be  printed. 
Punch  Card  (optional) 


Columns  Contents 

1-  5 PUNCH 


This  card  causes  the  raw  cell  frequencies  to  be  punched  onto  cards 
so  that  it  is  possible  to  go  back  and  either  combine  or  ignore  dif- 
ferent or  new  combinations  of  row  and  column  categories  without  re- 
reading the  raw  data.  In  order  that  a minimum  number  of  cards  have 
to  be  repunched  by  hand,  the  following  cards  are  punched. 


EXECUTE  FAWCS 
VARIABLES  2 

VARIABLE  NAMES  1=XXXXX, 2=WWWWW 
ROW  VARIABLE  xxxxx 
TOTALS  (see  below) 

BEGIN  DATA 

! actual  totals  from  the  raw  table 

END  DATA 


Thus,  all  that  must  be  added  is  a Title  Card.  After  adding  or  ig- 
noring any  other  cards  (including  optional  Control  Cards),  the  deck 
is  ready  for  resubmission.  Totals  are  punched  according  to  a format 
of  2014,  as  follows. 


Columns  Contents 


1-  4 Row  number 

6-  9 Column  number 

13  1 

14-17  Total  for  this  row-column  combination 


oontinued 


4 


o 

ERIC 


86 


1/70 


000  0051(a) 


( 


LO 

o 

o 


o 

o 

o 


( 


EDUCOM 


EDUCATIONAL  INFORMATION  NETWORK 

000  0051(a) 


NOTE:  The  PUNCH  option  is  recommended  only  for  exceptionally 

large  amounts  of  data.  Otherwise,  it  is  easier  simply  to  resub' 
mit  the  raw  data. 

Totals  Card  (optional) 

Columns  Contents 

1-  6 TOTALS 

This  card  indicates  that  totals  punched  in  a previous  run  of 
FAWCS  (or  otherwise)  are  to  be  used.  Totals  must  he  punched  in 
the  2014  format  described  above. 

I gnore-Categori es  Card  (optional;  one  or  more  as  required — first 
form) 

Columns  Contents 

1-80  IGNORE  xxxxx  CATEGORIES  i j k • • • 

This  card  causes  categories  i,j,k,•••  of  the  variable  xxxxx  to  be 
ignored,  where  xxxxx  is  either  the  name  or  the  number  of  a vari- 
able. A preliminary  table  with  all  categories  will  be  printed, 
followed  by  a final  table  in  which  the  specified  categories  will 
not  appear.  All  chi  squares,  percentages,  and  expected  frequen- 
cies will  be  based  on  the  final  table. 

I gnore-Categori es  Card  (optional;  second  form) 

Columns  Contents 

1-80  IGNORE  $ COLUMNS  CATEGORIES  i j k • . . 

This  card  indicates  that  categories  i,j,k,**‘  of  all  column  vari- 
ables are  to  be  ignored.  To  ignore  row-variable  categories,  the 
first  form  of  this  card  must  be  used. 

Combine-Categories  Card  (optional;  one  or  more  as  required — first 
form) 

Columns  Contents 

1—80  COMBINE  xxxxx  CATEGORIES  i j k • • • 

This  card  causes  categories  i,j ,k,* • • of  variable  xxxxx  to  be  com- 
bined to  form  a new  category,  where  xxxxx  is  xxxxx  is  either  the 
name  or  the  number  of  a variable.  The  new  category  will  carry  a 
number  that  is  the  smallest  of  those  combined. 
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Combine-Categories  Card  (optional;  second  form) 

Columns  Contents 

1-80  COMBINE  $ COLUMN $ CATEGORIES  i j k ••• 

This  form  indicates  that,  for  each  column  variable,  categories 
i,j,k,-«-  are  to  be  combined  to  form  a new  category.  Again,  to 
combine  row-variable  categories,  the  first  form  of  this  card  must 
be  used. 

NOTE:  If  there  is  an  inconsistency  in  the  Combine - and  Ignore- 

Categories  Cardsj  only  the  -preliminary  table  will  be  printed  and 
cards  will  be  punched. 

Format  Card  (required  for  raw  data;  not  permitted  for  totals) 

The  form  of  this  card  is  as  described  in  the  general  discussion  of 
Control  Cards  for  STPAC . For  FAWCS,  the  format  can  specify  only 
integer  data  (I  notation) . If  case  and  sequence  numbers  are  re- 
quired, the  format  must  allow  for  them. 

Description  of  Output 

The  printed  output  for  a FAWCS  problem  is  a series  of  two-dimension- 
al tables,  one  table  for  each  column  variable.  Each  table  is  head- 
ed by  the  title  that  the  user  has  supplied.  The  categories  of  each 
column  variable  are  listed  across  the  top  of  the  table,  along  with 
the  name  of  the  column  variable.  The  categories  of  the  row  variable 
are  listed  down  the  lefthand  margin  of  the  table,  along  with  the 
name  of  the  row  variable.  The  body  of  the  table  contains  the  ob- 
served frequencies  for  each  cell  and  percentages  and  expected  fre- 
quencies if  requested.  Below  each  table,  if  requested,  the  chi- 
square  value  is  printed,  along  with  its  degrees  of  freedom  and  the 
probability  of  exceeding  this  value  by  chance. 

If  any  Combine-  or  Ignore -Categories  Cards  were  present,  a prelimi- 
nary table  is  printed.  It  contains  the  same  title  and  headings, 
but  only  the  observed  frequencies  appear  in  the  body  of  the  table. 

At  the  bottom  of  this  table  are  listed  the  categories  that  are  to 
be  ignored  and  combined.  Then,  a final  table  in  which  the  combin- 
ing and  ignoring  has  taken  place  is  printed  on  a new  page.  All 
calculations  are  based  on  this  final  table. 

Card  output  is  produced  where  applicable,  as  described  under  the 
Punch  Card. 
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FREQUENCY  DISTRIBUTION  TABLE 
WITH  CHI-SQUARE 

SAMPLE  PROBLEM  FOR  STPAC  PROGRAM  FAWCS 

EACH  CELL  OF  THE  TABLE  CONTAINS  AN  ACTUAL  FREQUENCY  ON  THE  FIRST  LINE 

* CATEGORIES* 

* OF  * 

* COLUMN  * 

♦VARIABLE  * 

♦RES1DENC* 

* 2 * 

* * 

* * 

CATEGORIES*  * 

OF  * * 

ROW  * * ROW 

VAR  IABLE  * * C 1 2 TOTAL 

1 COLLEGE  ** 

******************  ******************************* 

* 


0 

1 

2 

3 

4 

5 

COLUMN 

TOTAL 


C 

7 

5 

5 

5 

6 

2 B 


1 

16 

10 

7 

8 
8 


THE  VALUE  OF  CHI-SQUARE  FOR 


17  50 

10  DEGREES  OF  FREEDOM  IS  EQUAL  TO 


13.768 


THE  PROBABILITY  OF  EXCEEDING  THIS  VALUE  OF  CHI-SQUARF  BY  CHANCE  IS  0.184 
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FREQUENCY  0 1 S TP  I BUT  f ON  TABLE 
ILLUSTRATE  SAME  DATA  OPTION 
PRELIMINARY  TABLE 


* CATEGORIES 
* OF 

* COLUMN 
^VARIABLE 
♦RES10ENC 
* 2 
♦ 

* 


CATEGORIES*  * 

OF  * ^ 

ROW  * * ROW 

VAR  IABLE  * * 0 l 2 TOTAL 

1 COLLEGE  ** 


********** **  *** 


************************** ******* 
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* 
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0 

5 

3 
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* 

* 

0 

6 

2 

8 

COLUMN 

TOTAL 

* 

* 

5 

28 

17 

50 

THE. 

FOLLOWING 

ROW 

categor  ies 

WERE 

IGNORED  - 

c, 

THE 

FALLOWING 

COLUMN 

CATEGORIES 

WERE 

IGNORED  - 

Cf 

THE 

following 

ROW 

CATEGORIES 

WERE 

COMBINEO 

TO  FORM 

CATEGORY  1 - 1 * 2» 

THE 

FOLLOWING 

ROW 

CATEGORIES 

WERE 

COMBINED 

TO  FORM 

CATEGORY  3 - 3 » A, 

c 
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>5  COST  ESTIMATE 

r*H 

lo  For  the  job  listed  on  the  Sample  Input,  the  total  running  time 

o was  5 seconds  on  the  central  processor  unit,  at  $0.11  per  second. 

o Charge  to  user  = computer  time  + network  overhead 

= $0.55  + network  overhead 
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DESCRIPTIVE  TITLE 
CALLING  NAME 
INSTALLATION  NAME 


Statistical  Summary 
(STPAC)  STSUM 


The  Pennsylvania  State  University  Computa 
tion  Center 


AUTHOR(S)  AND 
AFFILIATION(S) 


Nancy  C.  Daubert 

The  Pennsylvania  State  University  Computa 
tion  Center 


LANGUAGE 
COMPUTER 
PROGRAM  AVAILABILITY 
CONTACT 


FORTRAN  IV 

IBM  System  360/67 

Decks  and  listings  presently  available 


William  H.  Verity,  104  Computer  Building, 
The  Pennsylvania  State  University,  Uni- 
versity Park,  Pa.  16802 
Tel'.:  (814)  865  -9527 


FUNCTIONAL  ABSTRACT 


STSUM  computes,  in  double -precis ion  arithmetic,  the  sample  size, 
total,  mean,  standard  deviation,  population-variance  estimate, 
standard  error,  sum  of  squares,  coefficient  of  variation,  third 
and  fourth  moments  about  the  origin,  third  and  fourth  central 
moments,  alpha  (square  root  of  beta  1),  alpha  4 (beta  2),  momental 
skewness,  and  kurtosis.  Missing  data  will  be  permitted. 


Equations 


Vi 

V2 

V3 

v4 


= EX/ N 
= ZX/N 
= ZX/N 
= ZX/N 


moments  about  origin 
V i = X mean 
ZX  total 


y 2 

= 

v2 

- 

V!2 

y 3 

= 

V3 

- 

3V  iV  2 + 

2V!3 

y4 

= 

v4 

- 

4V  iV  3 + 

6V  1 2V  2 - 3V/ 

0t  3 

s 

/Ti 

= 

(y  3 2 /y  2 

3)  1/2 

a4 

= 

3 2 

= 

y 4 /y  2 

a 3 

/ 2 momental  skewness 

(a 

4 “ 

3) 

/2  kurtosis 

ZX2 

0:x)2 

/N  sum 

of  squares 

moments  about  mean 
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USER  INSTRUCTIONS 

This  program  is  one  of  a collection  of  programs  that  are  all  exe- 
cuted using  the  library  program  STPAC.  The  writeup  for  STPAC  must 
be  consulted  for  the  description  of  additional  Control  Cards  and 
procedures  for  running  this  program. 


Control  Cards  and  Their  Functions 

Of  the  various  Control  Cards  discussed  in  the  STPAC  writeup,  the 
Execute,  Variables,  and  Format  Cards  are  essential  to  STSUM.  Begin- 
and  End-Data  Cards  also  are  necessary  if  the  data  have  not  already 
been  read  for  a previous  STPAC  program.  All  other  STPAC  Control 
Cards  are  optional. 

Missing-Data  Card  (optional) 

Columns  Contents 

1-12  MISSING  DATA 

14—21  x,  any  number,  up  to  eight  digits  including  a decimal 

point,  that  will  be  read  as  a code  for  missing  data. 

Include  this  card  only  if  some  data  are  missing.  If  this  card  is 
omitted,  it  will  be  assumed  that  all  fields  contain  data  (blanks 
will  be  read  as  zero).  If  this  card  is  included  and  Cols.  14-21 
are  blank,  zeros  and  blanks  in  the  Data  Cards  will  be  treated  as 
missing  data.  If  Cols.  14—21  are  punched,  the  number  x in  a data 
field  will  be  treated  as  a case  of  missing  data. 

Example  (starting  in  Col.  1) 

MISSING  DATA  99.9 

This  would  provide  for  a case  where  Data  Cards  can  contain  instan- 
ces of  zero  observations  and  instances  of  missing  data.  All  data 
fields  previously  blank  would  then  be  coded  99.9  on  the  Data  Cards. 

Description  of  Input  Data 

Data  must  be  punched  according  to  the  format  given  on  the  Format 
Card.  A case  and  sequence  number  should  be  punched  on  each  card 
(but  only  if  required,  as  described  in  the  STPAC  writeup),  as 
well  as  the  data  points  in  F or  E format.  The  number  of  a vari- 
able is  determined  by  the  order  in  which  it  is  read,  which  is 
determined  by  the  format  supplied. 
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Description  of  Output 

Statistics  are  printed  in  two  tables.  All  variables  are  numbered 
and  also  are  named  according  to  the  Variable-Name(s)  Card,  if  it 
is  included. 

REFERENCES 

Beyer,  W.H.,  Ed.,  Handbook  of  Tables  for  Probability  and  Statistics 
(Chemical  Rubber  Co.,  Cleveland,  1966),  p.3. 
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DESCRIPTIVE  TITLE 
CALLING  NAME 
INSTALLATION  NAME 

AUTHOR(S)  AND 
AFF I LIATION(S) 

LANGUAGE 

COMPUTER 


T Test  on  Difference  between  Means 
(STPAC)  TTEST 

The  Pennsylvania  State  University  Computa- 
tion Center 


Nancy  C.  Daubert 

The  Pennsylvania  State  University  Computa- 
tion Center 

FORTRAN  IV 

IBM  System  360/67 


PROGRAM  AVAILABILITY  Decks  and  listings  presently  available 

CONTACT  William  H.  Verity,  104  Computer  Building, 
The  Pennsylvania  State  University,  Uni- 
versity Park,  Pa.  16802 
Tel.:  (814)  865-9527 

FUNCTIONAL  ABSTRACT 


TTEST  variables  (samples)  may  be  correlated  or  noncorrelated . 

Missing  observations  are  permitted.  Data  may  be  submitted  in  the 
form  of  a single  deck  or  multiple  decks.  Output  can  consist  of 
values  of  t,  frequencies,  probabilities,  and  levels  of  significance. 
TTEST  will  perform  a t test  on  each  of  all  possible  pairs  of  vari- 
ables, each  t being  computed  independently  of  all  others. 

For  a t test  on  the  difference  between  means  of  correlated  samples 
the  formula  used  is  p 1 


[[£D2  - i^:]/[N(N  - 1)]  j i/2 

where  N is  the  number  of  pairs  and  D is  the  difference  between  the 
scores  for  each  pair.  The  number  of  degrees  of  freedom  is  ex- 
pressed by  N - 1 . 

For  a t test  on  the  difference  between  means  of  noncorrelated 
samples,  with  separate  variances,  the  formula  used  is 

t = (Xi  - x2)/(sIi2  * S^2)1/2, 
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where  the  X's  are  the  means  and  the  2 and  2 are  the  squares 
of  the  standard  errors  of  the  means.  1 2 

If  the  frequencies  of  the  two  samples  are  equal,  the  number  of 
degrees  of  freedom  are  equal  to  the  frequency  minus  1.  If  the 
frequencies  are  unequal,  the  program  uses  the  lowest  frequency 
minus  1 as  the  number  of  degrees  of  freedom. 

A t test  on  the  difference  between  means  of  noncorrelated  samples, 
with  pooled  variances,  involves  the  formula 

t = (X,  - X2)/[S2(ii+  K2)]l/Z> 

where  S2  is  the  variance — i.e.,  the  sum  of  squares  has  been  cal- 
calculated  by  summing  the  squared  deviations  for  each  individual 
case  from  the  mean  of  the  group  in  which  that  case  is  found — and 
the  K's  are  the  individual  group  frequencies.  The  number  of 
degrees  of  freedom  is  equal  to  Ki  + K2  ~ 2. 

REFERENCES 

Wert,  J.E.,  Neidt,  C.O.,  and  Ahmann,  J.S.,  Statistical  Methods  in 
Educational  and  Psychological  Research  (Appleton— Century-Crofts , 
New  York,  1954),  pp. 128-142. 
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USER  INSTRUCTIONS 

This  program  is  one  of  a collection  of  programs  that  are  all  exe- 
cuted using  the  library  program  STPAC.  The  writeup  for  STPAC  must 
be  consulted  for  the  description  of  additional  Control  Cards  and 
procedures  for  running  this  program. 


Control  Cards  and  Their  Functions 


Of  the  various  Control  Cards  discussed  in  the  STPAC  writeup,  the 
Execute,  Variables,  and  Format  Cards  are  essential  to  TTEST. 
Begin-  and  End-Data  Cards  also  are  necessary  if  the  data  have 
already  been  read  for  a previous  STPAC  program.  All  other  STPAC 
Control  Cards  are  optional.  There  are  in  addition  some  required 
and  optional  Control  Cards  specific  to  TTEST;  these  are  described 
be  low . 

Correlated  or  Noncorrel ated  Card  (one  required) 


lumns 

Contents 

1-10 

CORRELATED 

or 

1-13 

NONCORRELATED 

or 

1-20 

NONCORRELATED  POOLED 

one  of  these 


This  card  informs  the  program  as  to  whether  the  variables  are 
correlated  or  uncorrelated  (noncorre lated) , and,  if  the  latter, 
whether  pooled  variance  or  unpooled  variance  is  to  be  used. 


Punch  Card  (optional) 

Columns  Contents 

1-  5 PUNCH 

This  card  should  be  included  only  if  the  values  of  t are  to  be 
punched  on  cards  in  addition  to  being  printed. 


Decks  Card  (optional) 

Columns  Contents 

1-  7 DECKS  M " 

or 

1-  5 DECKS 


one  of  these 
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This  card  should  be  included  if  the  data  should  be  submitted  in 
multiple  decks  rather  than  in  a single  deck.  DECKS  M is  used  if 
all  decks  have  equal  numbers  of  variables  punched  on  them  and  M 
represents  that  number  of  variables.  DECKS  is  used  when  decks 
have  different  numbers  of  variables  punched  on  them;  in  this  case, 
the  number  of  variables  per  card  is  included  in  the  data.  See 
Description  of  Input  Data,  below. 

Probabilities  Card  (optional) 

Columns  Contents 

1-13  PROBABILITIES 

This  card  causes  a table  of  probabilities  for  each  t to  be  printed. 

Significance-Levels  Card  (optional) 

Columns  Contents 

1-19  SIGNIFICANCE  LEVELS 

Include  this  card  to  print  out  a table  containing  entries  that 
describe  significance  at  the  0.05,  0.025,  0.01,  and  0.001  levels. 

Missing-Data  Card  (optional) 

Columns  Contents 

1-12  MISSING  DATA 

14-21  Any  number  up  to  eight  digits,  including  a decimal 

point,  that  will  be  read  as  a code  for  missing  data. 

Include  this  card  only  if  some  data  are  missing.  If  this  card  is 
omitted,  it  will  be  assumed  that  all  fields  contain  data  (blanks 
will  be  read  as  zero).  If  this  card  is  included  and  Cols.  14-21 
are  blank,  zeros  and  blanks  in  the  Data  Cards  will  be  treated  as 
missing  data.  If  Cols.  14—21  are  punched,  the  number  x in  a data 
field  will  be  treated  as  a case  of  missing  data. 

Example  (starting  in  Col.  1) 

MISSING  DATA  99.9 

This  would  provide  for  a case  where  Data  Cards  can  contain  instan- 
ces of  zero  observations  and  instances  of  missing  data.  All  data 
fields  previously  blank  would  then  be  coded  99.9  on  the  Data  Cards. 

Description  of  Input  Data 

Data  must  be  punched  according  to  the  format  given  on  the  Format 
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Card.  In  standard  form,  each  card  should  contain  case  and  sequence 
numbers  in  I format  (but  only  if  required  for  multiple  cards  per 
case,  as  described  in  the  STPAC  writeup),  followed  by  data  points 
for  each  variable  in  F or  E format. 

If  the  DECKS  M option  (1st  form)  is  used,  each  card  should. contain 
a deck- identification  number  in  I format  and  a data  point  in  F, 
t>  E,  or  D format  for  each  variable  in  that  deck. 

If  the  DECKS  option  (2nd  form)  is  used,  each  card  should  contain 
‘ not  only  a deck- i denti f ication  number  but  also  the  number  of  vari- 

ables on  that  card  (i.e.,  that  deck),  both  in  I format,  in  addi- 
i tion  to  a data  point  in  F,  E,  or  D format  for  each  variable  in 

that  deck.  All  cards  for  one  deck — containing  the  same  deck- 
identification  number  and  the  same  number  of  variables  on  every 
^ card — must  be  together.  Correlated  variables  (samples)  will  not 

’ be  handled  with  the  DECKS  option. 

The  number  of  a variable  is  determined  by  the  order  in  which  it 
is  read,  which  is  determined  by  the  format  supplied  (and  the 
order  of  the  decks  if  multiple  decks  are  used).  In  the  case  of 
decks,  where  the  first  deck  contains  three  variables  and  the 
; second  contains  four,  the  variables  will  be  renumbered  from  1 

through  7. 

i / * 

Description  of  Output 

Values  of  t will  be  printed  and  also  punched  at  the  user’s  option. 
In  the  case  of  correlated  samples,  a table  of  frequencies  als*. 
will  be  printed.  Tables  of  probabilities  of  significance  levels 
will  be  printed  at  the  user's  option. 

All  tables  are  printed  as  triangular  matrices.  Every  variable  is 
? numbered  and  named  according  to  the  Variab le-Name (s ) Card  if  it 

i is  included. 

REFERENCES 

> Wert,  J.E.,  Neidt,  C.O.,  and  Ahmann,  J.S.,  Statistical  Methods  in 

Education  and  Psychological  Research  (Appleton— Century— Crofts , 
New  York,  1954),  pp. 128-142. 
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SAMPLE  OUTPUT 


T r S T r SHr.rND  fTNSE  DFCK 


VAR 1 ABIF 

l 

■> 


NO.OrtS.  MFAN  STANOAR)  ("MPR  SQUARED 

1A  ' , 1 8 7 AA  D 01  ' 1 

ia  i. 2381m  ei  ^.?inSDn  pi 


TF8T  OF  SFCPNO  TTNSF  OCCK 
t rrsT 

IIMr.flRR  H AT  CD  SA‘*PLFS 


l 


NO. OHS.  I A 
2 IA  7.72*. 
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COST  ESTIMATE 

For  the  job  listed  on  the  Sample  Input,  the  total  running  time 
was  4 seconds  on  the  central  processor  unit,  at  $0.11  per  second. 

Charge  to  user  = computer  time  + network  overhead 

= $0.44  + network  overhead 


CONTENTS— (STPAC)  TTEST 
pages 

1—  2 Identification  § Abstract 

3-  5 User  Instructions 

7-  8 I/O 

9 Cost — Contents 
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DESCRIPTIVE  TITLE 


Pearson  Product-Moment  Correlation  Coef- 
ficient 


CALLING  NAME  (STPAC)  PPMCR 


INSTALLATION  NAME  The  Pennsylvania  State  University  Compu- 
tation Center 


AUTHOR ( S ) AND 
AFFILIATION(S) 


William  H.  Verity 
Nancy  C.  Daubert 

The  Pennsylvania  State  University  Compu- 
tation Center 


LANGUAGE  FORTRAN  IV 


COMPUTER 
PROGRAM  AVAILABILITY 

CONTACT 


FUNCTIONAL  ABSTRACT 


IBM  System  360/67 

Decks  and  listings  presently  available 

William  H.  Verity,  104  Computer  Building, 
The  Pennsylvania  State  University,  Uni- 
versity Park,  Pa.  16802 
Tel.  : (814)  865-9527 


PPMCR  computes  not  only  a Pearson  product-moment  correlation  co- 
efficient for  each  possible  pair  of  input  variables,  but  also  the 
mean  and  standard  deviation  of  each  input  variable. 
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^ USER  INSTRUCTIONS 

nd 

m This  program  is  one  of  a collection  of  programs  that  are  all  exe- 

S cuted  using  the  library  program  STPAC.  The  writeup  for  STPAC  must 

° be  consulted  for  the  description  of  additional  Control  Cards  and 
o procedures  for  running  this  program. 


PPMCR  can  have  an  unlimited  number  of  observations  per  variable. 

The  output  can  be  punched  and  then  submitted  at  a later  date  as  in- 
put to  another  program,  such  as  regression  analysis,  or  it  can  be 
passed  directly  to  another  program  in  STPAC.  All  computations  use 
double-precision  arithmetic. 

Control  Cards  and  Their  Functions 

PPMCR  has  one  optional  Control  Card  in  addition  to  those  applicable 
to  all  STPAC  programs.  There  is  no  standard  format  for  this  pro- 
gram, so  a Format  Card  must  be  supplied.  Also,  a Variables  Card  is 
required . 

Punch  Card  (optional) 

Columns  Contents 

1-  5 PUN^H 

This  card  will  cause  PPMCR  to  punch  a deck  that  can  be  used  later 
as  input  to  another  STPAC  program  [for  example,  DNREG,  EIN  No. 

000  0051(h)].  Since  intermediate  results  can  be  passed  directly 
to  another  STPAC  program,  the  use  of  punched-card  output  is  recom- 
mended only  where  it’ is  desirable  to  break  up  the  run. 

Description  of  Input  Data 


Data  Cards  must  be  supplied  to  PPMCR,  along  with  the  proper  format. 
If,  as  discussed  in  the  STPAC  writeup,  case  and  sequence  numbers 
are  used  (only  when  all  the  variables  do  not  fit  on  one  card) , the 
format  must  allow  for  them.  Data  are  read  by  using  an  F-  or  E- 
format  code  (both  for  single-precision  floating-point  numbers) . 

Case  and  sequence  numbers,  if  used,  are  read  with  an  I-format  code. 

Description  of  Output 

The  first  page  of  PPMCR  output  is  a table  of  means  and  standard  de- 
viations for  each  of  the  input  variables.  Then,  starting  on  a new 
page,  the  correlation  coefficients  are  printed  in  the  form  of  a 
triangular  matrix,  with  the  rows  and  columns  identified  by  variable 
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number  and  name  if  a Variable-Name (s)  Card  was  used. 

If  punched  output  was  requested,  the  punched  deck  contains 

(1)  Title  Card 

(2)  A set  of  Variable-Name (s)  Cards,  if  the  variables  were 
named 

(3)  A Begin-Data  Card 

(4)  Cards  containing  the  means,  standard  deviations,  and  cor- 
relation coefficients  and  a card  with  the  number  of  vari- 
ables and  number  of  observations 

(5)  An  End-Data  Card 
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SAMPLE  INPUT 


m 

o 

o 

o 

c 

o 


FXFl.iirF  PPMCR 

T1TLF  SMFOFCOR  F X AMPL  F Om  PAOF  *14 
VARIARLFS  3 

VAP1AWLF  MAMFS  > « X 1 # ? =X 2 . 3»Y 
FORMAT  ( F3. 1 , »=2.0f  F*.?) 

RFfijN  OAT  A 
004S^4 
0042340 
0311^71 
00*3441 
04  7 ?4*S4 
01  74*77 
0Q444M 1 
1 01 31 Q3 
!!A?Q93 
1 ?JS5«M 
1 093774 
2 3 1 4 494 
231*077 
? 1 4 449  3 
231*49* 

01934*4 
?4R*R1  4u 
299*1  99 
FMPI  nATA 
FXFf.HTF  SfOPP 
| Kt pi | T FRnM  PPMCR 
LFVFI.  .1  TFN 
FXFCUTF  ONRFO 
INPUT  FROM  PPMCR 
nFPFNOFNT  V 
PAkSI MONY 
FXFCUTF  I IP  R F (3 
INPUT  FROM  PPMC« 

0FPFNH FNT  V 
fxfchTf  Canon 
INPUT  FROM  PPMCR 
LFFT  v 
R10MT  Xl,X? 

FXFCHTF  FANAL 
INPUT  FRRM  PPMCR 
FACTORS  3 
fxfcotf  VARMX 
INPUT  FROM'  FANAl. 

STOP 
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SAMPLE  OUTPUT 


SNtmCUf*  EXAMPLE  . )N  PAGE  *1* 

MF AMS  and  standard  deviatijns 


MEANS 

STO.  DEV 

1 

XI 

1 1.9* 

l\  . 15 

? 

X2 

*2.11 

3 

Y 

81.28 

27.  CC 

Ci)P  RELATION  COEE  F I C I ENTS 


i 

2 

XI 

X2 

2 

X2 

0.4M6 

3 

Y 

0.693* 

C • 3 5*5 

TOTAL  NUMBER  OF  DATA  CARDS  PROCESSED:  18  NUMBER  OF  OBSERVATIONS:  18 

NUMBER  OF  VARIABLES  EXAMINED:  3 
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COST  ESTIMATE 

For  the  job  listed  on  the  Sample  Input,  the  total  running  time 
on  the  central  processor  unit  was  6 seconds,  at  $0.11  per  second. 

Charge  to  user  = computer  time  + network  overhead 

= $0.66  + network  overhead 


CONTENTS — ( STPAC ) PPMCR 


pages 

1 

3-  4 
5-  6 
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Identification  § Abstract 

User  Instructions 

I/O 

Cost — Contents 
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DESCRIPTIVE  TITLE 


Significance  of  Pearson  Product-Moment 
Correlation  Coefficient 


CALLING  NAME  (STPAC)  SIGPP 


INSTALLATION  NAME  The  Pennsylvania  State  University  Compu- 
tation Center 


AUTHOR ( S ) AND 
AFFILIATION(S) 


LANGUAGE 


W.M.  Stiteler,  III 

Mathematics  Department,  The  Pennsylvania 
State  University 

F.  Yates  Borden 

Forestry  Department,  The  Pennsylvania 
State  University 

H.D.  Knoble,  The  Pennsylvania  State  Uni- 
versity Computation  Center 

FORTRAN  IV 


COMPUTER 
PROGRAM  AVAILABILITY 

CONTACT 


FUNCTIONAL  ABSTRACT 


IBM  System  360/67 

Decks  and  listings  presently  available 

William  H.  Verity,  104  Computer  Building, 
The  Pennsylvania  State  University,  Uni- 
versity Park,  Pa.  16802 
Tel.:  (814)  865-9527 


SIGPP  is  to  be  used  optionally  in  conjunction  with  the  correlation 
programs  to  determine  the  significance  of  correlation  coefficients 
at  any  desired  probability  levels.  That  is,  the  null  hypothesis 
r ■ 0 (alternate:  r / 0)  is  tested  for  each  correlation  coefficient. 


REFERENCES 


U.S.  Department  ,of  Commerce,  Handbook  of  Mathematical  Functions 

(U.S.  Government  Printing  Office,  Washington,  D.C.,  1964),  p.949, 
formula  26.7.8. 

Snedecor,  G.W.,  Statistical  Methods  (Iowa  State  University  Press, 
Ames,  la.,  1961),  p.  190. 
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USER  INSTRUCTIONS 

This  program  is  one  of  a collection  of  programs  that  are  all  exe- 
cuted using  the  library  program  STPAC.  The  writeup  for  STPAC  must 
be  consulted  for  the  description  of  additional  Control  Cards  and 
procedures  for  running  this  program. 


Control  Cards  and  Their  Functions 

In  addition  to  Control  Cards  specified  for  STPAC,  the  following 
Control  Card  may  be  used  for  this  program^ 

Level  Card(s)  (optional) 

Columns  Contents 

1-80  LEVEL  RRRRRRRR  CCCC 

} 

There  may  be  from  zero  to  five  of  these  cards  for  a problem.  LEVEL 
is  a key  word.  RRRRRRRR  is  a two-  to  eight-character  floating- 
point field,  including  a decimal  point  (e.g.,  .001  or  .05),  indi- 
cating the  probability  of  making  a type  I error  (rejecting  the  null 
hypothesis  when  it  is  true).  0 < RRRRRRRR  < 1.  CCCC  is  a one-  to 
four-character  symbol  to  be  associated  with  RRRRRRRR  (e.g.,  * or 
.05)  . 

Description  of  Input  Data 

Punched-card  output  from  a correlation  program  may  be  used  as  data. 
That  is, 

BEGIN  DATA 


Output  from  a correlation  program 


END  DATA 

By  using  the  Input-From  Card  as  described  in  the  STPAC  writeup, 
SIGPP  may  be  executed  during  the  same  run  as  a correlation  program. 

To  repeat  a problem  using  the  same  data  but  different  Level-Card 
options,  the  Same-Data  Card  may  be  used  according  to  the  STPAC 
rules . 

NOTES: 

1.  Of  the  above  three  options  (Punch  Card,  Input-From  Card,  Same- 
Data  Card) , one  must  be  chosen  for  a problem. 
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2.  Although  means  and  standard-deviations  cards  are  not  necessary 
for  SIGPP,  these  may  be  left  intact  on  punched-card  input  as  they 
will  automatically  be  ignored  by  this  program. 

3.  Level  Card(s),  if  used,  may  be  placed  anywhere  after  the  Exe- 
cute Card  and  before  the  Begin-Data  Card  if  the  latter  card  is 
present . 

The  approximations  in  the  program  begin  to  lose  accuracy  as  the 
number  of  observations  becomes  less  than  10.  According  to  Ref.  1 , 
the  approximations  in  SIGPP  are  valid  also  for  Spearman  rank  coef- 
ficients for  cases  where  there  are  more  than  eight  ranks. 


Description  of  Output 


A probability  of  making  a type  I error  is  computed  for  each  corre- 
lation coefficient,  using  a two-tailed  test  based  on  a transforma- 
tion and  approximation  of  the  Z (standard  normal)  probability  den- 
sity function. 

If  Level  Card(s)  have  'been  used,  the  null  hypothesis  H0:r  = 0 is 
tested  versus  the  alternate  Hoir  / 0 at  the  specified  level(s)  of 
significance  and  a triangular  matrix  of  results  is  printed , using 
corresponding  symbols.  The  sign  of  the  correlation  coefficient 
also  is  printed  with  each  respective  symbol.  Thus,  each  position 
of  the  triangular  matrix  of  correlations  will  have  a sign  and  a 
symbol  that  designate  the  sign  and  significance  of  the  correlation 
coefficient  of  that  corresponding  position.  All  probabilities 
greater  than  the  greatest  probability  on  all  of  the  Level  Card(s) 
appear  in  the  output  as  #NS#,  meaning  that  the  null  hypothesis  is 
to  be  accepted  at  the  level  of  significance  greater  than  or  equal 
to  the  largest  probability  specified. 

If  no  Level  Card(s)  have  been  used  for  a problem,  each  position  of 
the  triangular  matrix  will  have  a sign  and  the  actual  probability 
(of  making  a type  I error  or  rejecting  the  null  hypothesis  when  it 
is  true)  associated  with  the  correlation  coefficient  of  that  cor- 
responding position. 

REFERENCES 

1.  Snedecor,  G.W. , Statistical  Methods  (Iowa  State  University 
Press,  Ames,  la.,  1961),  p.  190. 
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SAMPLE  :.NPUT 


m 
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P y f r, m t s-  ppmc' 

t?ii.p  svFnFcrm  fxampi.f  n*»  pa<^*  414 
WAP  I AMI, F s 3 

VAQ1AHI.F  MAMFS  1 *y  1 , J>sX?  * ^ = Y 
FflHMAl  f F 3.  1 ,F?.'V-4t?) 

RFC  1m  DATA 
004S^  A 
0047140 
O-AllttYl 
on  a^m 

0*77444 
01 74S77 

OQ  444 H 1 
1 0 1 1 1 M A 

1 74SM41 

10QVJ74 
2^1  4*,g* 

7^14077 

>1444g^ 

7HS4QS 
01<n444 
?4RSM  4H, 

?QQS 1 gg 
FMn  HATA 
F X F C M T F SIOPP 
1 M P 1 1 f FROM  PPMf,R 
LFVFI  ,1  TFN 
FXFO'TF  nWRFf; 
iwpill  FROM  PPMf.P 
nppFwriPM  Y 
PAR  SI MRWY 
FXFri'fP  IIPRFG 
INPUT  FROM  PPMCR 
DFPFMMFWT  Y 
FXFfMtF  CANON 
1 M PI  IT  FROM  PPMCR 
LFFT  v 
R 1 OH1  X 1 , X? 

FXFr.MlF  FAMAL 
INPUT  FROM  PPMCR 
FACTORS  1 
FXFCIITF  VAR  MX 
INPUT  FRMM  FANAl. 

STOP 


-0051  (d) 

■0051(e) 

0051(h) 

0051(g) 
0051 (i) 
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COST  ESTIMATE 

For  the  job  listed  on  the  Sample  Input,  the  total  running  time 
on  the  central  processor  unit  was  6 seconds,  at  $0.11  per  second. 

Charge  to  user  = computer  time  + network  overhead 

= $0.66  + network  overhead 


CONTENTS — (STPAC)  SIGPP 
pages 

1 Identification  § Abstract 

3-  4 User  Instructions 

5-  6 I/O 

7 Cost — Contents 
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USER  INSTRUCTIONS 

This  program  is  one  of  a collection  of  programs  that  are  all  exe- 
cuted using  the  library  program  STPAC.  The  writeup  for  STPAC  must 
be  consulted  for  the  description  of  additional-  Control  Cards  and 
procedures  for  running  this  program. 


PARCOR  can  have  an  unlimited  number  of  observations  per  variable. 
Up  to  27  variables  may  be  specified  on  the  Include  and  Delete 
Cards  for  the  calculation  of  partial  correlations  and  multiple 
correlations.  All  computations  are  done  in  double-precision 
arithmetic . 

Control  Cards  and  Their  Functions 

There  is  no  standard  format  for  this  program,  so  a Format  Card 
must  be  supplied.  A Variable  Card  is  also  required,  and  a Var- 
iable-Names Card  may  be  included. 

PARCOR  has  four  types  of  optional  Control  Cards  in  addition  to 
those  applicable  to  all  programs  in  STPAC. 

Print  Card  (optional) 

Columns  Contents 

1-  5 PRINT 

This  card  instructs  the  program  to  print  the  variance— covariance 
matrix  for  the  total  number  of  variables. 

All  Card  (optional) 

Columns  Contents 

1-  3 ALL 

This  card  specifies  that  partial  correlations  and  multiple  cor- 
relations of  all  the  variables  are  to  be  computed,  using  the 
entire  variance-covariance  matrix. 

Include  Cards  (optional) 

Columns  Contents 

1-  7 INCLUDE 

9-80  i j k 

This  card  instructs  the  program  to  compute  partial  correlation 
and  multiple  correlations  for  variables  i,  j,  k,  ••*,  only.  The 
variable  list  specified  for  a single  calculation  must  fit  on 

continued 
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one  card.  The  variables  may  be  specified  by  their  number  or, 

if  a Variable-Names  Card  was  supplied,  by  their  names.  They 
must  be  separated  by  at  least  one  blank,  and  hence  at  most 
27  variables  could  be  specified  for  a single  calculation. 

Delete  Card(s)  (optional; 

Columns  Contents 

1-  6 DELETE 

8—80  i j k • • • 

This  card  instructs  the  program  to  delete  variables  i,  j,  k,  •••, 
from  the  calculation  of  partial  correlations  and  multiple  correla- 
tions. All  variables  specified  for  a single  calculation  must  fit- 
on  one  card.  They  may  be  specified  by  number  or  by  name  (if  a 
Variable-Names  Card  was  supplied) , and  they  must  be-  separated  by 
one  or  more  blanks.  Up  to  27  variables  may  be  specified  on  each 
Delete  Card. 

Example : DELETE  AGE  SEX  WEIGHT  HEIGHT 

This  card  specifies  that  all  the  variables  except  age,  sex,  weight, 
and  height  should  be  included  in  the  calculation  of  partial  and 
multiple  correlations.  In  this  example,  the  variables  are  spe- 
cified by  name,  and  it  is  assumed  that  a Variable-Names  Card  was 
supplied. 

NOTE:  PARCOR  Control  Cards  may  be  inserted  anywhere  among  the 

STPAC  Control  Cards  and  they  may  appear  in  any  order.  A given 
set  of  Control  Cards  may  consist  of  any  number  of  Include  or 
Delete  Cards  and,  at  most,  one  Print  Card  and  one  All  Card  for 
any  given  set  of  data. 

Description  of  InpMt  Data 

Data  Cards  must  be  supplied  to  PARCOR  along  with  the  appropriate 
Format  Card.  If,  as  described  in  the  STPAC  writeup,  the  case 
and  sequence  numbers  are  used  (i.e.,  if  all  the  variables  do  not 
fit  on  one  card),  the  format  must  allow  for  them.  Data  are  read 
using  F-  or  E- format  code,  and  the  case  and  sequence  numbers,  if 
used,  with  an  I— format  code. 

Description  of  Output 

If  a Print  Control  Card  was  supplied,  the  variance-covariance 
ance  matrix  for  all  the  variables  is  printed  in  the  form  of  a 
triangular  matrix,  together  with  the  means  of  all  the  variables. 

The  rows  and  columns  are  identified  by  variable  numbers  and,  if 
a Variable-Names  Card  was  supplied,  by  their  names. 
continued 
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^ For  eaoh  Include,  Delete,  and  All  Card,  a triangular  matrix  of 
mh  partial  correlations  of  the  specified  variables  is  printed.  The 

^ rows  and  columns  are  identified  by  the  variable  numbers  and,  if 

g a Variable-Names  Card  was  included,  by  their  names.  The  heading 

o gives  the  total  number  of  variables  as  well  as  the  number  of  var- 

o iables  included  in  the  calculation  of  partial  correlations  and 
g multliple  correlations.  The  multiple  correlations  of  these  var- 
iables are  printed  below  the  matrix. 
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SAMPLE  INPUT 


FyHr.it ip  pap r.m? 

V A p 1 AM f S 3 n 

VAR  ! A Kl.  H m a "IP  S 1 = V 1 , ' W ?,  ^WA  - 3,  4 = »|  am  A t Sal/  A*-1  S , i/  * . * , / r / 

VAR  I AIM.  F MAM  R S 1 O - * AR  I r , 1 1 =w  AR  1 1 f 1 ? = v AR 1 ? • 1 - = v a ...  i - # I ,fc=  \i  a ./  \ /,  # ] s= v* R 1 ^ , 

WAR  I AUI  F M A Mi- S 1 s^r  VAR  1 4, 1 / = 7,  1 ‘is'/AMH,  m = VAW14ty-'  = '/^>n 

T 1 T I i“  1 F S T MF  m ar  | I Al.  Cl  l ;<  WH I.  a | 1 1 i*h*  s wwiimkA’*' 

format  (?y,7«-l.^) 

PR  I MT 

I M r.  I_  I « I . F l«  ?o  71  ?7  73  74  ?s  v/  ?H  >9  AO 

I)  F L M *■  V A R 1 \/A^7  Wi\w^  WA-A  W Aw  •*  R/.R4  \/A^7  WAR*  V/iR*i  v A w ) n \Im|1  VAw  1 7 VAwM 

I Mf.l.l  IHF  VARS  V A w 1 n VAR  IS 
A|.  L 

DFLHfH  VAR]  \/Aw3  VARS  V A J / V*'7c> 

DF  L p T 1 ? 3 4 S 4 7 R Q in  \)  17  13  14  IS  \ 4 ] 7 ]H  Is  70  >1  ??  7 3 > u 7s  ?4  ?/  7M 

RF  O 1 a DATA 

01  47444444444447  / 4 /4474S4-%74  / s / 44  4 / 7 >SAS  ASi'ShS^hhAA^V  / 04  4 s / 4 4 s 4 4 4 40  3 / 3 

0? 4440 7 1 S77S7  7/1 S ^0444  / 40s  4 444  n^A5  S ? 444  s 7 SO  7 ? 3?  7 4 4 4/,  AA^  s so  y 4.**3?s/«4n  / 7 ss  ?SA>4s4fW.  s 3 

0 30  S40  4 3047  0 44  043  O440740  ^40  7 4»s4n  *3s4  7RMiR^407  so  7 4 04  4 ok^o  ^ 4 OftA  04  so  7 AMnAR  /404  ^04*3 
04  0474  340S404V*>044  3S44404S46  30  344fe4476  4S447447?4  7S4s4M44M  / '3  344  4440*  / /IS404444**  Ms  3 
0S044444S74474  h /4444444S  / 44  7 /*  4 / ( n / 4 s 7 7‘^S4Sk^747  70  / 4 0 / Mlh  / o »w*  s 7 / 4hSOhSi'77*)7SR*)  *■*  s / S 
0SSSS44S47  1 4 344  /44  / S 7 4444/*  4 4s  44  4 4 3 4 S 34  4 3 p 4 4 44  3 4 7444  74  4 S 744  S44  4 4 / s4*>  A S X 3 4 S 7 S S-»  4 ? ^ 
0707404404404403404404703404  SM<*M'3  443  4n4404  40'36n*34M44O44/is  3OSSn4S0'?4n*3'3s  4 404  3o44 
OR  0340  34  0440?  40 3 '34  344  34  044  0 3X0  3 30?  3O74O7S0  3 ?0  740  430  740/,  AD  4 3 <*-  ?n4  3 / ? VMhO  340?  A 
09  4340?3443044o3  3n3  74  3*3  0<4S4>O7?sl  404  60??  0 A?  07*404  *4  7 4 A*'  ? 04 1 n^  ^ H4?nfe4  f»  ? SOH  **i  '4^ 

1 00^40^^  04^04  Sn^^nH40^^0^40S^O>4^/>  44440H^0SX0>i^0S4n^4i'44*>4S  -»■'<.  4^4444*^0^40^  Vl'^ 

1 1 044S4SSSS545  444  444SS  7 04S4  s Af » A/*f  7 s S4^  7 7 *44  H 4 s 44  s '*  S ^ 44  K S4  f S4  4 7404  *1*480  SSO  7 /*^4^ 

l?SS40^4SS4S4S^4hh?S0S4  0S4S4'-‘0-<7S^  'i7S4  4S1S4S4?44SSni,4  7>/^^/44  ihS4/.  sn4h  7SHnS'-lO-,44h^ 


* / 

» • ♦ 

46S44044444044^*44  /SS  7440*444*4*  H4  4 40^^  7 ^ ^ 50^4 n '^44S444S44  ^SS-A^Am]  a S Sh  7 h hOS  - h44 
4734S4S^04S0S4OS4n4^0S4S  ^04  AO-.H7  “404  S4S^SH40^^  74404  *> S 4S P 4 7( ;4 4 SS^>  y HS/-4SS  TJ4l.^-»l*4t 

4R04TS?  ^O^OS '40^4^44?  S 44  0 S/i4VVl4  444:*  04^04  SOS  ^04H  >H^S44n  H 4s  7*.'.  ^>4^.  ,)k>^ 

490S44^^0^304Sn??04,44  740  ^SS  40  ^n/,4n4'SDXl  0 1 40S4S44nV44  444  44n4  4n44n'44  4 V4M4VV4  ^‘.44 
S00  44S”4^0447S4M44n?  40S404  AOS  44  4 H S4  4SS^  O ? ^O  S ^04  ^ 044i  V^*4  4 A 40  44*4  ‘40  ^^fMS  7ssO'4’404*»  f 44 

5 1 S4SS4  4444  0 S4  nS4nV45440'.  >4  s 74  ^4  44*444  *40440  4 404  7 0 4SS4  40  44  4 s 4 s44*-s;4S  44<'S  S(1V4m  ^s‘44 

S7  04SS444440S4SSs44  4S4S0  44nS4D444s444S4444SS0S4SSS44Sn4  4n  4S  »4s4 s40s40sS4 S 40  4*  0 44 
S^nSS4S3444Sb4  04Sn4  4S4SS  > -OS  40  440  ^444  40440 '44044044  0444*440  44044  OsHOh  S 4 444 4 4 s4  S4^4 
S40^^n4^444  0^3Dl4n4^44S0A4  0^4  04SO  A HS44  O *440  3 304 3 0 4 S4 S HO  -»  S 04  4 n s 3'  * S s04  HOH  >0  ^ S044  n -i  S 
SSOSSOS40  4SOS4  074  0434  44  4 h 70S  4 0 <40  4 40  4 40  A ^0  44  OS  SO  S S 04  1 0 -*sOS4  04  4 /MS  M S sn  S S4  W . S S 
44  74*^44744733  7^.444444  1 4/.  7 711  44?47  3443  7344?4444437S4?4^^P4s44A3H03  744S4AH4S0/»47 
47  4 4 344444  3 4 44  S4  3 OS4S440  7 703  1 /*o  1 *»>347  30  3S4  4 4 04  4 44  34  A 7 ^ *7  **0  44  ^44  ^ 7 304  7 04  44  3 3 S S /.  s 33 
4H  0430  34  04404  40  430  S44SP4A  3 0 34  O/*  40 U ? S 4 7 O S 44  3 404  3 O 4 444  7 ns  70  34- «S4 O 1 70444  4 A 04^04**0  74 
400410?  10?1  041  01*703141107  102  1 0/704  70  3 3 3 73  ^ 7 3 0 1 1 0 ? 1 O 13  O 1 70  1 1 ‘*4  3 / S \ n4  1 0*4  70  ? \ 0 1 -1  *3> 
404*j40 3 5544S 44MS4  4 S404  304 304^0/,  344  34s3  44344  S044444s434470S  4 74407  4,,  ^ n/-SSS  7 30S  ^444 
41S4  4434n474  44  4S444  4 444SnS04  ^4  f.3il  ^4  44  3S440  440444  444S4  S 4444  7044  r3sS  3 M»440  4444  «-SS4 
4?nS7n4S444n74^4s44h44444  /S7 ^os40^sSS4s4707 40470  4 70s  70 7 /so ?os44 Shs s 4 s 7 7 4 7 s 04 ' S /4 
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COST  ESTIMATE 

For  the  job  listed  on  the  Sample  Input,  the  total  running  time 
was  7 seconds  on  the  central  processor  unit,  at  $0,11  per  second, 

Charge  to  user  = computer  time  + network  overhead 

= $0.77  + network  overhead 
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DESCRIPTIVE  TITLE 


Canonical  Correlation 


CALLING  NAME 


(STPAC)  CANON 


INSTALLATION  NAME 


The  Pennsylvania  State  University  Compu 
tation  Center 


AUTHOR ( S ) AND 
AFFILIATION (S) 


William  H.  Verity 
Nancy  C.  Daubert 

The  Pennsylvania  State  University  Compu 
tation  Center 


LANGUAGE 

COMPUTER 


PROGRAM  AVAILABILITY 

CONTACT 


FORTRAN  IV 

IBM  System  360/67 

Decks  and  listings  presently  available 


William  H.  Verity,  104  Computer  Building, 
The  Pennsylvania  State  University,  Uni- 
versity Park,  Pa.  16802 
Tel.  : (814)  865-9527 


FUNCTIONAL  ABSTRACT 


CANON  solves  successively  for  the  most  significant  canonical  cor- 
relation coefficients.  At  the  same  time,  two  sets  of  weights  as- 
sociated with  each  pair  of  canonical  variates  are  computed. 


All  matrix  computations  are  done  in  double-precision  floating- 
point arithmetic.  The  set  of  criteria  and  predictor  variables  is 


divided  into  two  groups:  1 (lefthand)  and  r (righthand)  vari- 

ables, the  smaller  set  automatically  becoming  the  righthand  vari- 
ables. The  program  then  uses  a variation  of  the  jacobian  method 
to  extract  r eigenvalues  and  r eigenvectors  (righthand  weights). 
These  are  then  used  through  further  calculations  to  compute  r ca- 
nonical correlation  coefficients  and  r sets  of  lefthand  weights. 
For  each  canonical  correlation  coefficient,  chi  square  is  com- 
puted with  the  aid  of  the  eigenvalues  and  the  parameters  N (the 


number  of  observations),  r,  and  1. 


Original  variables  are  brought  into  the  canonical -correlation 
problem  by  means  of  Right-  and  Left-Variables  Cards.  Computa- 
tionally, it  is  irrelevant  whether  the  variables  on  the  left  or 
on  the  right  are  considered  as  criteria  or  predictor  variables. 
However,  to  save  computer  time,  the  set  with  the  smallest  number 
of  variables  (always  put  into  the  righthand  category  by  the  pro- 
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gram)  should  be  designated  as  right.  Any  or  all  of  the  variables 
brought  into  the  problem  may  be  named  by  using  Name  Cards  accord- 
ing to  STPAC  rules. 

The  maximum  output  records  for  a problem  may  be  estimated  as  fol- 
lows. Let  R be  the  number  of  righthand  variables,  L be  the  num- 
ber of  lefthand  variables,  and  R < L.  Then,  the  number  of  records 
equals  R ( 1 6 + L)  + 10. 

Given  two  sets  of  variables — not  necessarily  random  variables — [X^ 
(where  i = 1,  2,  •••,  p,  the  number  of  predictor  variables,  and 
(where  i = 1,  2,  •••,  q,  the  number  of  criterion  variables]  the 
problem  that  CANON  solves  is  essentially  that  of  maximizing  the 
correlation  between  certain  members  of  the *two  sets,  simultaneously 
reducing  the  others  to  zero.  Canonical  correlation,  then,  may  be 
defined  in  one  sense  as  a process  by  which  the  relationship  between 
two  sets  of  variables  is  reduced  to  its  simplest  form.  In  canoni- 
cal correlation,  both  multiple  criteria  and  multiple  predictors  can 
be  involved.  (Note  that,  when  q = 1 and  p > 1,  the  problem  is 
equivalent  to  that  of  multiple  regression.) 

For  a hypothetical  example,  let  p = 3 and  q = 2.  Here,  it  is  poss- 
ible to  extract  two  canonical  correlation  coefficients — say  Ri  and 
R2 . There  is  a total  of  p + q = 5 variables — say  Xi , X2,  X3  (pre- 
dictors) and  Xi»,  X5  (criteria).  There  will  be  two  pairs  of  canoni- 
cal variates — say  U1V1  and  U2V2.  Suppose  for  Ri  that  the  weights 
for  the  predictor  variables  are  Pn,  Pi2,  Pi  3 and  for  the  criteria 
variables  that  the  weights  are  CM,  Ci2.  Then,  the  pair  of  new 
variates,  the  canonical  variates,  which  are  multiples  of  a linear 
function  of  the  original  variables,  are 

Ui  = Ki 1 (Pi  1X1  + Pi2X2  + P13X3), 

Vi  = KizCCuX*  + Ci2X5), 

where  the  K's  are  arbitrary  constants  of  proportionality  and  Ui  and 
Vi  are  correlated  as  described  by  Ri.  A similar  situation  exists 
for  U2  and  V2,  which  are  correlated  as  described  by  R2.  Further- 
more, in  general  all  of  the  U's  and  V's  have  zero  mean  and  unit 
variance;  any  U is  independent  of  any  other  U and  likewise  for  the 
V's;  the  correlation  between  any  U and  V is  zero,  except  for  r 
correlations  Ri , R2 , •••  , Rr , which  are  the  correlations  between 
Ui  and  Vi,  U2  and  V2,  •••  , Ur  and  Vr . 

As  far  as  interpretation  is  concerned,  the  same  difficulty  arises 
as  in  factor  analysis:  that  of  knowing  whether  or  not  the  linear 

functions  correspond  to  anything  real  or  whether  they  are  merely 
mathematical  figments. 
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USER  INSTRUCTIONS 

This  program  Is  one  of  a collection  of  programs  that  are  all  exe- 
cuted using  the  library  program  STPAC.  The  writeup  for  STPAC  must 
be  consulted  for  the  description  of  additional  Control  Cards  and 
procedures  for  funning  this  program. 


Control  Cards  and  Their  Functions 

\ 

In  addition  to  Control  Cards  specified  in  the  STPAC  writeup,  the 
following  Control  Cards  may  be  used  for  this  program.  At  least 
one  of  each  is  necessary  unless  specified  as  optional.  The  key 
word  and  parameters  for  each  card  may  be  punched  anywhere  on  that 
card,  separated  by  one  or  more  blanks,  with  the  stipulation  that 
the  order  of  each  field  be  adhered  to  as  follows. 

Right-Variables  Card(s) 

Columns  Contents 

1-80  RIGHT  III  III  III  ...  Ill 

RIGHT  is  a key  word.  Ill  is  either  (1)  a field  of  one-  to  three- 
digit  variable  numbers  of  those  variables  to  be  Used  as  right  vari- 
ables or  (2)  a field  of  one-  to  eight-character  variable  names  of 
those  variables  to  be  used  as  right  variables.  In  the  first  case, 
III  must  be  a number  between  one  and  the  number  of  variables  that 
are  brought  into  a problem.  In  the  second  case,  III  must  be  a 
variable  name  as  defined  on  the  STPAC  Name  Card(s).  In  both  cases, 
there  may  be  as  many  of  these  fields  per  Right-Variables  Card(s) 
as  will  fit  on  the  card  or  as  are  necessary  to  define  the  problem. 
However,  a maximum  of  50  right  variables  is  allowed.  Numbered  and 
named  fields  may  be  mixed  on  one  card  and  between  cards. 


Examples 

RIGHT 

• 

• 

7 

11  2 

1 

4 

RIGHT 

OAT 

-WHEAT 

CORN 

RIGHT 

DBH 

VOLUME 

PINEHT 

HRDWDHT 

Left-Variables  Card(s) 


Columns  Contents 

1-80  LEFT  III  III  III  ...  Ill 

LEFT  is  a key  word.  Ill  is  defined  the  same  as  above,  except  that 
its  application  is  to  left  variables. 
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Exampl_es : 0 

o 

LEFT  6 3 5 8 9 10  12  21  ° 

LEFT  RELATIVE  ABSOLUTE  ’NO.  SPOR'  g 

LEFT  13  PROBEL  9 STRESS  STRAIN  10  ^ 

I—* 

Tolerance  Card  (optional)  £, 

Columns  Contents 

1-80  TOL  RRRRRRRR 

This  card  reassigns  or  overrides  the  default  tolerance  to  be  used 
when  pivoting  through  the  correlation  matrix  during  inversions. 

The  user  is  cautioned  when  changing  the  tolerance,  which  is  set 
to  0.01  as  a default.  The_ tolerance  may  not  be  changed  to  any 
value  outside  the  range  10-  l — 10  7 and  will  be  reset  to  10~2  if  an 
attempt  is  made  to  do  so. 

TOL.  is  a key  word.  RRRRRRRR  is  a two-  to  eight-character  floating- 
point field,  including  a decimal  point,  designating  the  tolerance 
to  be  used  for  the  current  problem. 

Description  of  Input  Data 


Punched-card  output  from  a Pearson  product-moment  correlation  pro- 
gram may  be  used  as  data.  That  is, 

BEGIN  DATA 


Output  from  a Pearson  product-moment  correlation  program 
• - 

END  DATA 

By  use  of  the  Input-From  Card  as  described  in  the  STPAC  writeup, 
CANON  may  be  executed  during  the  same  run  as  a correlation  pro- 
gram. 

To  repeat  a problem  using  the  same  data  but  different  Right-Vari- 
ables and/or  Left-Variables  options  4 the  Same-Data  Card  may  be  used 
according  to  the  STPAC  rules. 

N0TES_j_ 

1.  Of  the  three  above  options  (Punch  Card,  Input-From  Card,  Same- 
Data  Card),  one  must  be  chosen  for  a problem. 

2.  Although  means  and  standard-deviations  cards  are  not  necessary 
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for  CANON,  these  may  be  left  intact  on  punched-card  input,  as 
they  will  be  ignored  by  this  program. 

3.  The  cards  described  above  may  be  placed  in  any  order  after 
the  Execute  Card  and  before  the  Begin-Data  Card,  if  one  is  used. 

Description  of  Output 

The  normalized  and  unnormalized  vectors  of  weights  associated  with 
the  set  of  criteria  variables  and  the  corresponding  vectors  associ- 
ated with  the  set  of  predictor  variables  are  printed  out  with  each 
canonical  correlation  coefficient.  The  value  of  chi  square,  Wilk's 
lambda,  and  the  probability  of  obtaining  a greater  value  of  chi 
square  associated  with  the  hypothesis  that  the  predictor  variate 
:s  unrelated  to  the  criteria  variate  also  is  printed  with  each  co- 
efficient . 

Other  pertinent  information  such  as  title,  variable  names,  number 
of  observations,  degrees  of  freedom  for  chi  square,  and  eigenvalues 
used  in  calculation  of  the  weights  also  will  be  printed. 
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LO 
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FX  FT.UT  F PPMCR 

TTTLF  SNFnFCMR  F*AMPlF  0*  P A NF  414 
VAPIAMI.FS  '3 

VAR1AWLP  MAMF^  1 =y 1 , ? = X?  = Y 
FORMAT^. 1 ,F?#0#h4.J?) 

WFG I M OATA 
004S144 

no4?^^n 

0MI®71 

00A  ^4^1 
04  7?4S  4 
01  7A477 
0Q444M 1 

I 0 m Q ‘4 

I I A?QP  4 
1 ?6SHM 
l OR^77F» 

? ^ 1 Sn  7 7 
?1A444^ 

?MS(SQS 
0 1 R ^ H4 

*«, 

?9<JS1 qq 

FMn  OAT A 
FXFr.MTF  S1GPP 
IMPItf  FROM  PPMCR 
LFVFI  .1  TFM 
FXFr.MTF  nNRFG 
IMpm  FROM  PPMCR 
OFPFmm  FM  T Y 
PAM  SI  mONV 
FXFCMTF  uprfg 
INPUT  'RnM  PPMCR 
OFPFMMFNT  Y 
FXFr.MTF  CANON 
INPUT  FROM  PPMCR 
LFFT  Y 
R I GM1  X 1 , X ? 

FXFCM-1F  FANAl 

input  from  ppmcr 
FACTORS  ^ 

FXFr.MTF  VAR  MX 
INPUT  FROM  FANAl. 

STOP 
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COST  ESTIMATE 

For  the  job  listed  on  the  Sample  Input,  the  total  running  time 
on  the  central  processor  unit  was  6 seconds,  at  $0.11  per  second. 

Charge  to  user  - computer  time  + network  overhead 

- $0.66  + network  overhead 
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DESCRIPTIVE  TITLE 
CALLING  NAME 


Step-Up  and  Step-Down  Multiple  Linear 
Regression 

(STPAC)  UPREG/DNREG 


INSTALLATION  NAME  The  Pennsylvania  State  University  Compu- 
tation Center 


AUTHOR(S)  AND  Dennis  Deaven  (programming) 

AFFILIATION ( S ) The  Pennsylvania  State  University  Compu- 

tation Center 

M.A.  Efroymson  (flow  charts) 

LANGUAGE  FORTRAN  IV 


COMPUTER  IBM  System  360/67 

PROGRAM  AVAILABILITY  Decks  and  listings  presently  available 

CONTACT  William  H.  Verity,  104  Computer  Building, 
The  Pennsylvania  State  University,  Uni- 
versity Park,  Pa.  16802 
Tel.:  (814)  865-9527 


FUNCTIONAL  ABSTRACT 


UPREG/DNREG  computes  stepwise  multiple-regression  equations,  add- 
ing or  deleting  one  variable  at  a time  until  no  variables  remain 
to  add  significantly  to  the  equations  or  until  no  significant  vari- 
ables remain  in  the  equation.  At  each  step,  the  following  are 
printed  for  those  variables  currently  in  the  equation. 

(1)  Regression  coefficients 

(2)  Standard  deviation  of  the  regression  coefficients 

(3)  Standard  regression  coefficients 

(4)  Partial  correlation  coefficients 

(5)  Fraction  of  explained  variance 

(6)  Multiple  correlation  coefficient 

(7)  Regression-equation  intercept 

(8)  Standard  deviation  of  the  dependent  variable  (UPREG  only) 

(9)  F value  for  the  variable  entering  or  leaving  the  equation 
(UPREG  only) 
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UPREG 

In  the  step-up  procedure,  intermediate  results  are  used  to  give 
statistical  information  at  each  step  in  the  calculation.  These 
intermediate  answers  are  also  used  to  control  the  method  of  cal- 
culation. A number  of  intermediate  - regress  ion  equations  are  ob- 
tained, as  well  as  the  final  multiple-regression  equation.  These 
equations  are  obtained  by  adding  or  deleting  one  variable  at  a 
time,  giving  the  following  equations. 

Y = b (0)  + b (l)x(l)  , 

Y = b'(0)  + b ' ( 1 ) x (1)  + b'(2)x(2), 

Y = b" ( 0)  + b"  (1) x ( 1)  + b"(2)x(2)  + b"(3)x(3) 


The  variable  added  is  the  one  that  makes  the  greatest  improve- 
ment in  goodness  of  fit.  The  coefficients  represent  the  best 
values  when  the  equation  is  fitted  by  using  the  specific  vari- 
ables included  in  the  equation.  An  important  property  of  this 
procedure  is  that  a variable  may  be  indicated  to  be  significant 
in  any  early  stage  and  thus  enter  the  regression  equation.  In 
addition,  after  several  other  variables  are  added  to  the  equa- 
tion, the  initial  variable  may  be  indicated  to  be  insignificant. 
The  insignificant  variable  will  be  removed  from  the  regression 
equation  before  adding  an  additional  variable.  Therefore,  only 
significant  variables  are  included  in  the  final  multiple- regres - 
sion  equation. 

DNREG 

The  step-down  procedure  of  DNREG  is  simpler  than  the  step-up  pro- 
cedure of  UPREG.  If  the  parsimony  option  has  been  chosen,  DNREG 
eliminates  one  variable  at  a time,  printing  the  intermediate  re- 
sults at  each  step.  The  variable  eliminated  is  the  one  that  con- 
tributes least  to  the  overall  significance.  Note  that,  once  a 
variable  has  been  eliminated  with  the  procedure,  it  is  never 
brought  back  into  the  equation. 

REFERENCES 

Efroymson,  M.A.,  "Multiple  Regression  Analysis,"  in  Mathematical 
Methods  for  Digital  Computers3  A.  Ralston  and  H.S.  Wilf,  Eds. 
(John  Wiley  $ Sons,  Inc.,  New  York,  1965). 
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- USER  INSTRUCTIONS 

rC 

V ' 

£ This  program  is  one  of  a collection  of  programs  that  are  all  exe- 

o cuted  using  the  library  program  STPAC.  The  writeup  for  STPAC  must 

° be  consulted  for  the  description  of  additional  Control  Cards  and 
§ procedures,  for  running  this  program 


Control  Cards  and  Their  Functions 


i 

i 

I 

\ 


Of  the  various  Control  Cards  discussed  in  the  STPAC  writeup,  the 
Execute  Card  is  essential.  If  PPMCR  [EIN  No.  000  0051(d)]  is  exe- 
cuted during  the  same  run  and  Name(s)  Card(s)  were  used,  then  the 
Variable-Name (s) -Transfer  Card  should  be  used.  Note  that  a Vari- 
ables Card  is  not  required  since  PPMCR  either  passes  the  number  of 
variables  or  punches  it  onto  a card  to  be  read  by  UPREG  later  on. 
Some  additional  required  and  optional  Control  Cards  are  specific 
to  UPREG  and  DNREG . These  are  described  below. 

Dependent-Vari abl e Card  (one  required) 

Columns  Contents 
1-  9 DEPENDENT 

11-14  xxx 

This  card  designates  the  variable  to  be  used  as  the  dependent  vari- 
able. xxx  is  either  the  name  or  the  number  of  one  of  the  variables. 


IN  Variables  Card  (optional;  one  or  more) 

Columns  Contents 

1-  2 IN 

4—  . xxx  yyy  zzz  • • • . 


This  card  selects  variables  to  be  forced  into  the  equation  no  mat- 
ter what  their  significance,  xxx,  yyy,  and  zzz  are  either  the  num- 
bers or  names  of  some  of  the  variables. 

OUT  Variables  Card  (optional;  one  or  more) 

Columns  Contents 

1-  3 OUT 

5—  . xxx  yyy  zzz  ♦ • * . 

. continued 
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This  card  selects  variables  that  are  never  wanted  in  the  equation, 
no  matter  how  significant  any  might  be.  xxx,  yyy , and  zzz  are 
either  the  numbers  or  names  of  some  of  the  variables. 

Tolerance  Card  (optional) 

Columns  Contents 
1-  9 TOLERANCE 

11-13  xxx 

This  Card  changes  the  tolerance  used  in  pivoting  through  the  matrix. 
The  default  tolerance  is  0.0:.  The  correlation  matrix  is  inverted 
by  using  a Gauss-Jordan  technique  and  selecting  the  largest  diagonal 
element  at  any  given  stage  on  which  to  pivot.  If  this  pivot  should 
become  small,  it  often  indicates  a degeneracy  in  the  correlation 
matrix,  which  indicates  that  one  of  the  "independent”  variables  is, 
in  fact,  approximately  a linear  combination  of  other  independent  va- 
riables. If  the  tolerance  is  set  too  low,  the  program  may  develop 
erroneous  results  owing  to  inverting  a singular  correlation  matrix. 
In  any  case,  the  tolerance  must  be  greater  than  zero . 

F-Value  Card  (optional;  UPREG  only) 

Columns  Contents 
1-  6 FVALUE 
8—10  xxx 

This  card  selects  the  critical  F value  that  the  program  uses  to  de- 
termine whether  to  add  or  delete  a variable  from  the  equation.  The 
default  F value  is  2.5. 

Parsimony  Card  (optional;  DNREG  only) 

Columns  Contents 
1-  9 PARSIMONY 

This  card  indicates  to  DNREG  that  the  step-down  procedure  should  be 
used,  eliminating  one  variable  at  a time  from  the  equation.  It  the 
parsimony  option  is  not  selected,  only  one  set  of  results  will  be 
printed  for  each  problem — that  is,  one  equation  with  all  variables 
present  except  those  declared  OUT. 

Description  of  Input  Data 

Data  for  UPREG  and  DNREG  are  a set  of  means,  standard  deviations, 
and  correlation  coefficients,  along  with  the  number  of  variables 
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ar.d  number  of  observations.  Normally,  the  input  comes  from  PPMCR 
(from  a previous  problem  during  the  same  run  using  the  Input-From 
PPMCR  Card  or  by  using  a deck  that  was  punched  by  PPMCR  during 
some  previous  job).  If  the  input  is  supplied  by  cards,  they  must 
be  identical  in  format  to  those  punched  by  PPMCR. 

Description  of  Output 

The  output  from  UPREG  and  DNREG  consists  of  a series  of  tables, 
one  table  being  produced  each  time  a variable  is  added  to  or  de- 
leted from  the  equation.  Each  table  contains  all  the  information 
specified  in  the  Functional  Abstract. 
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SAMPLE  INPUT 


H 

to 

o 

o 

o 

o 

o 


( 


FXFC.HTF  PPMf.tt 

T 1 T L F S^FUFCMR  FvAmrlp  I)m  Pm,*-  414 
VAR!  AMI,  FS  3 

VAR1AMLF  MAMFS  1 a V 1 , ? a X ? , IsY 

format ( F 1 fF?.n,h4t?) 

HFGJW  DATA 
0O4S1A4 
004  ? ^*0 
01  llq7  l 
no*i4M 
04  7 ?4S  4 
0 ) 7*S  77 

0Q444N 1 
101  1191 
1 1 *?99l 
1 ?*  S«*l 
1 09177  * 

2114*9* 

211*077 

71*4491 

?iis*gs 

0191**4 
?*RSRl *R, 

?qq*199 

FMn  OAT  A 
FxFCMIP  S 1 GPP 
I M p 1 1 1 FROM  PPMCW 
LFVFI  ,1  TFM 
FXFCIITF  OMR  FG 
INPUT  FROM  PPMC.P 
OFPFMhFMT  Y 

PAM  SI mOMV 

FXFCHTF  IIPRFG 
INPUT  FRnM  PPMC« 

UF  PFnmPMT  Y 
fxfchtf  Canon 

INPUT  FROM  PPMGR 
LFFT  V 
RIGHT  X1,X? 

FXFCU'IF  FANAL 
INPUT  FROM  PPMOR 
FACTORS  1 
FXFCIITF  VAR  MX 
INPUT  FROM  FANAi, 

STOP 
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SAMPLE  OUTPUT — UPREG 

MULTIPLE  REGRESSION  ANALYSIS  FORS  SNEDECOR  EXAMPLF  ON  PAGE  41A 
TOLL  RANC  E=  .3 10 

TOTAL  NUMBER  OF  VARIABLFS  = 3 

NUMBER  OF  OBSERVATIONS  = 18 

FVALUE  = 2.  5000 0 

DFPFNDENT  VARIABLE  : 31  Y) 

START  REGRESSION,  STANDARD  DEVIATION  OF  THE  DEPENDENT  VARIABLE!  3(  Yl  = 26.996 
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SAMPLE  OUTPUT — DNRE6 


MULTIPLE  REGRESSION  ANALYSIS  FOR!  SNEDECOR  EXAMPLE  ON  PAGE  A l A 
PARSIMONY  OPTION  SELECTED 
TOLERANC  E=  .0 10 

TOTAL  NUMBER  OF  VARIABLES  = 3 

NUMBER  OF  OBSERVATIONS  = IB 


NUMBER  OF  VARIABLFS  ELEGlBLF  FOR  F L I Ml  NAT  I ON  BY  PARSIMONY: 
THE  NUMBER  ASSOCIATED  WITH  THESE  VARIABLES  AND  THEIR  NAMES, 
l<  Xl»,  21  X2) 


SPECIFIED,  ARE  LISTED  BELOW. 


DEPENDANT  VARI ABLE (NAME,  IF 


SPFCI FI  ED, 


AND  ASSOCIATED  NUMBER): 


3 ( 


YI 
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LO 

o 

o 


INOF.P.  VARIABLE 
NUMBER  AND  NAME 

1 XI 

2 X2 


REGRESSION 
COEFFICIENT 
0.  178977D  01 
0.  8664920-01 


ST AN0. DEVIATION 
FOR  COEFFICIENT 
0.5R67430  CC 
0.4149430  CO 


STAND. REGRESSION 
COEFFIC IFNT 

0.6732183  • 

0.0437310 


NUMBER  OF  VARIABLES  PRESENTLY  ELIMINATED:  0 


O CANDIDATE  FOR  THE  NEXT  F L I MI  NAT! ON-V AR I A8L E:  2!  X2I 

© F-RATIn  OF  VARIANCE  nF  AGGREGATE  ELIMINATED  AND  CANDIDATF  VARIABLES 

© TO  UNEXPLAINED  VARIANCE  WITH  NONE  ELIMINATED:  C. 43610-01 

FRACTION  OF  EXPLAINED  VARIANCE:  0.482 

MULTIPLE  CORRELATION  COEFFICIENT:  0.6945 

INTERCFPT  BIO):  0.562510D  02 


ANALYSIS  OF  VARIANCE 


SOUR CF  OF 
VARIATION  DF 


SUM  OF 
SQUARES 


MEAN  F 

SQUARE  RATIO 


DUE  TO  REG  2 5.97567D  03  2.98783D  C3  6.98751D  OC 


ABOUT  REG  15  6.41394D  03  4.27596D  02 


TOTAL  17  1.23896D  04 


( 


V 


ft 
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FI 

t; 


37 


PARTIAL  CORRELATION 
COEFFICIENT 
C.6387 
0.0538 
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00 

INDEP. 

VARIABLE 

REGRESSION 

NUMBER 

AND  NAME 

COEFFICIENT 

1 

XI 

0. 1843440  0 

ABLFS 

PRESENTLY 

ELIMINATED:  1 

STAND.  DEVIATKIN 
FDR  COEFFICIENT 
3.4789320  00 


% 


ST  AND. R EGRt bb ION 
COEFFIC IENT 
G. 6934031 


PARTIAL  CORRELATION 
COEFFICIENT 
0. 693 A 


21 


X2) 


"PECIFIED,  ARE  LISTED  BELOW. 


CANDIDATE  FOR  THE  NEXT  ELIMINATION-VARIABLE:  1(  xl) 

F-RATIO  OF  VARIANCE  OF  AGGREGATE  ELIMINATED  AND  CANDIDATE  VARIABLES 

TO  UNEXPLAINED  VARIANCE  WITH  NONE  ELIMINATED:  C.69BRD  01 
FRACTION  OF  EXPLAINED  VARIANCE:  0.481 

MULTIPLE  CORRELATION  COEFFICIENT:  0.6934 


INTERCEPT 

BIO): 

0. 59259QD  02 

ANALYSIS  OF  VARIANCE 

SOURCE  OF 
VARIATION 

DF 

SUM  OF 
SOUARES 

MEAN 

SQUARE 

F 

RAT  10 

DUE  TO  REG 

1 

5.95702D  03 

5.95702D  03 

1.481710  01 

ABOUT  REG 

16 

6.43259D  03 

4.02G37D  02 

TOTAL 

17 

1.23396D  04 

VALUE  OF  DETERMINANT  = 0.7B70D  CO 

0.20046D-16 


12 
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f 

t — N 

COST  ESTIMATE 

rH 

o For  the  job  listed  on  the  Sample  Input,  the  total  running  time 
° on  the  central  processor  unit  was  6 seconds,  at  $0.11  per  second, 
o 

§ Charge  to  user  = computer  time  + network  overhead 

= $0.66  + network  overhead 


CONTENTS— (STPAC)  UPREG/DNREG 
pages 

1—  2 Identification  § Abstract 

3—  5 User  Instructions 

7-12  I/O 

13  Cost — Contents 


i 
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LO 

O 

O 


O 

O 

O 


DESCRIPTIVE  TITLE 
CALLING  NAME 


Factor  Analysis  (or  Principal -Components 
Analysis) 

(STPAC)  FANAL 


INSTALLATION  NAME  The  Pennsylvania  State  University  Compu- 
tation Center 


AUTHOR(S)  AND  J.  Cooley 

AFFILIATION (S ) D.  Laird 

L.  Pryor 
J.  McConnochie 

The  Pennsylvania  State  University  Compu- 
tation Center 


LANGUAGE  FORTRAN  IV 


COMPUTER  IBM  System  360/67 


PROGRAM  AVAILABILITY  Decks  and  listings  presently  available 

CONTACT  William  H.  Verity,  104  Computer  Building, 
The  Pennsylvania  State  University,  Uni- 
versity Park,  Pa.  16802 
Tel. : (814)  865-9S27 

FUNCTIONAL  ABSTRACT 


FANAL  solves  successively  for  the  most  dominant  factors  represent- 
ed in  a (symmetric)  correlation  matrix.  Factors  are  ranked  accord- 
ing to  the  variance  accounted  for.  The  number  of  factors  to  be  ex- 
tracted is  specified  in  advance.  The  program  may  also  be  used  to 
find  the  dominant  eigenvalues  and  eigenvectors  of  other  (symmetric) 
positive  definite  matrices. 


All  computations  are  done  in  double-precision  floating-point  arith- 
metic. The  method  used  is  an  iterative  one  in  which  a vector  con- 
verges to  the  eigenvector.  The  largest  eigenvalue  is  found  first 
and  then  a deflation  process  is  used  to  find  the  successively  small- 
er eigenvalues.  An  extrapolation  procedure  is  used  to  accelerate 
convergence  of  the  basic  iterative  method. 
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USER  INSTRUCTIONS 

This  program  is  one  of  a collection  of  programs  that  are  all  exe- 
cuted using  the  library  program  STPAC.  The  writeup  for  STPAC  must 
be  consulted  for  the  description  of  additional  Control  Cards  and 
procedures  for  running  this  program. 


Description  of  Input 

The  input  to  FANAL  consists  of  the  Control  Cards  described  below 
and  the  lower  half  of  the  symmetric  matrix  plus  optional  diagonal 
elements.  Normally,  the  symmetric  matrix  is  the  output  from  PPMCR 
[EIN  No.  000  0051(d)],  another  STPAC  program,  which  computes  the 
Pearson  product-moment  correlation  coefficients  for  a set  of  vari- 
ables. The  output  from  PPMCR  may  be  in  the  form  of  punched  cards 
received  from  some  previous  job  or  it  may  be  passed  directly  to 
FANAL  by  the  Input -From  PPMCR  option. 

The  symmetric  matrix  may  also  come  from  another  program  in  STPAC 
or  from  a user's  program.  At  present,  PHICO  [EIN  No.  000  0051(h)], 
SPRHO  [EIN  No.  000  0051 (m) ] , and  PPMCR  can  pass  their  results  to 
FANAL.  In  the  case  of  a user's  program,  the  data  must  be  punched 
in  exactly  the  same  format  that  PPMCR  punches  its  output. 

Control  Cards  and  Their  Functions 

Of  the  various  Control  Cards  discussed  in  the  STPAC  writeup,  the 
Execute  Card  is  required.  If  the  data  were  punched  by  the  user, 
a Variables  Card  is  required  also. 

Factors  Card  (one  or  none) 


Columns  Contents 

1-  7 FACTORS 

9-80  n,  the  number  of  factors  to  be  extracted  from  the  matrix 

If  this  card  is  omitted,  the  program  will  attempt  to  extract  as 
many  factors  as  there  are  variables  so  long  as  the  variance  account- 
ed for  is  greater  than  or  equal  to  the  minimum  variance. 


Minimum-Variance  Card  (one  or  none) 

Columns  Contents 

1-16  MINIMUM  VARIANCE 

18-80  x,  any  floating-point  number,  with  the  decimal  point 

punched 
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x indicates  the  eigenvalue  at  which  factor  extraction  will  be  ter- 
minated. If  this  card  is  not  supplied,  the  default  minimum  vari- 
ance will  be  zero. 

Correlation  Card  (one  or  none) 

Columns  Contents 

1-18  CORRELATION  MATRIX 

This  card  is  a request  that  the  input  matrix  be  printed  out. 
Residual  Card  (one  or  none) 


o 

o 


o 

o 

Ln 


H* 


Columns  Contents 

1—15  RESIDUAL  MATRIX 

This  card  is  a request  that  the  residual  matrix  be  printed  out  pri- 
or to  termination  of  the  program. 


Diagonal  Card  (one  or  none) 


Columns  Contents 

1-  8 DIAGONAL 

10-80  d,  a floating-point  number,  with  the  decimal  point 

punched,  followed  by  an  optional  E or  D field 

d is  the  value  to  be  placed  into  each  diagonal  element  of  the  matrix. 
An  alternative  version  permits  the  entry  of  unique  diagonal  elements. 


Columns  Contents 

1-14  DIAGONAL  CARDS 

This  card  indicates  that  the  diagonal  elements  will  be  read  from 
Data  Cards  following  the  Begin-Data  Card.  They  must  be  punched  ac- 
cording to  a specific  format. 


Columns 

1 

2 

3 

4-  6 
7-18 


Contents 

Blank 

D 

Blank 

Card  sequence  number 

1st  diagonal  element  on  this  card 


67-78  6th  diagonal  element  on  this  card 
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Thus,  card  1 would  contain  the  diagonal  elements  (1,1)  through 
(6,6)  and  card  5,  for  example,  would  contain  the  diagonal  ele- 
ments (25,25)  through  (30,30).  Note  that  this  format  is  identi- 
cal to  that  used  by  PPMCR  to  punch  its  means  and  standard  devi- 
ations, except  for  the  letter  D,  which  designates  these  cards  as 
diagonal  cards. 

Description  of  Output 

For  each  factor,  the  output  includes  the  variance  accounted  for 
(the  eigenvalue  Xi),  the  eigenvector  U^,  and  the  vector  of  fac- 
tor loadings  f^,  where  f^  * 

At  the  user's  option,  the  input  matrix  can  be  printed  out  and, 
at  the  completion  of  the  factor  extraction,  the  residual  matrix 
can  be  printed  out.  Also,  a punched  deck  can  be  requested  to  be 
entered  at  a later  time  to  VARMX  [EIN  No.  000  0051(j)]. 
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SAMPLE  INPUT 

fXFCHTP  PPMCH 

TTTLF  SNFDFCOR  F X A MPL  F 0^  PANF 
VAR1ARLFS  3 

VAR1AWLF  NAMFS  1 =X 1 t ?*X? , 3»Y 
FORMAT  ( F 1 ,F  ?.  0,  F*.  ? ) 

RFC,!*  nATA 
00<»S^<* 

004?S*0 

rmi<J7l 

oo*s<*M 

0<*72<*S<* 

01 7AS77 
09<*<*<»H 1 
lOMIM'A 
11A?QQ^ 

1 ?ASwM 
IOPS77* 

2^1  LhUf> 

? S 1 SO  7 7 
? 

?SIS*PS 

OIO^SS^ 

P^RSRISR, 

?qqsi qq 

Fwn  oata 

FXFf.MTF  SIOPP 
1MPIH  FROM  PPMCW 
LFVFI  .1  *fFK« 

FXFCI1TF  ONRC(; 

INPUT  FROM  PPMC.P 
DFPFNOFAJT  Y 
P AW  S T MOWV 
FXFCMTF  IIPRFO 
INPUT  FROM  PPMC« 

|)F PFNnFNT  Y 
F X F C H T F CANnN 
INPUT  FROM  PPM0R 
LFFT  v 
R10HT  XI  ,X? 

FXFCJflF  FANAL 
INPUT  FROM  PPMGR 
FACTORS  S 
FXFCMTF  VAR  MX 
INPUT  FROM  F AN  Al. 

STOP 


0051 (d) 


0051 (e) 
0051(h) 

0051(g) 
0051  (i) 
0051  (j) 
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SAMPLE  OUTPUT 

SEPTEMBER  1968  VE'AGICW  - THE  PENNSYLVANIA  STATE  UNIVERSITY  COMPUTATION  CENTER. 
SNEOECOR  EXAMPLE  ON  PAGE  414 


PRINCIPAL  COMPONENTS  ANALYSIS 
PROBLEM  NAME: 


O 

O 

o 


o 

o 

Cn 


H* 


THIS  PROBLEM  HAS  3 V AR I ABL  E < S ) AND  3 F AC  TOR  I S ) • 


FACTOR 

NUMBER 

1 XI 

X? 

Y 


TEST 

FACTOR 

VAR  l ANCE 

NUMBER 

LOADING 

IF  IGENVALUE) 

1 

C .8960  1 

2.02068 

? 

C.701 14 

3 

0 • 8 5 ? 2 0 

EIGENVECTOR 

0.6303? 

0 .4^324 
C. 59951 


ITERATIONS 
R FQUI RED 
10 


FACTOP 

NUMBER 

? XI 

X2 
Y 


TEST 

FACTOR 

VARIANCE 

EIGENVECTOR 

ITFRATH 

NUMBER 

loading 

(E  IGENVALUEI 

REOUI RED 

) 

41 . 1 R6?C 

0.68498 

C.2249P 

10 

2 

-C. 70775 

-C.B5515 

3 

0.38653 

0.46702 

FACTOR 

NUMBER 

3 XI 

X/ 
Y 


TEST 

FACTOR 

VARIANCE 

number 

LOADING 

(EIGENVALUE) 

1 

C .40311 

C.  29433 

2 

-0.086  *53 

3 

-C. 35263 

EIGENVECTOR 

C .74302 
-C  . lr>9  5C 
-0 .64  999 


ITERATIONS 

REQUIRED 

3 
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COST  ESTIMATE 

For  the  job  listed  on  the  Sample  Input,  the  total  running  time 
on  the  central  processor  unit  was  6 seconds,  at  $0.11  per  second. 

Charge  to  user  = computer  time  + network  overhead 

= $0.66  + network  overhead 


CONTENTS— (STPAC)  FANAL 


pages 

1 

3-  5 
7-  8 
9 


Identification  § Abstract 

User  Instructions 

I/O 

Cost — Contents 


C 
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DESCRIPTIVE  TITLE 

Varimax  Rotation 

CALLING  NAME 

(STPAC)  VARMX 

INSTALLATION  NAME 

The  Pennsylvania  State  University  Compu- 
tation Center 

AUTHOR(S)  AND 
AFFILIATION (S) 

J.  Cooley 
D.  Thompson 
John  McConnochie 

The  Pennsylvania  State  University  Compu- 
tation Center 

LANGUAGE 

FORTRAN  IV 

COMPUTER 

IBM  System  360/67 

PROGRAM  AVAILABILITY 

Decks  and  listings  presently  available 

CONTACT 

William  H.  Verity,  104  Computer  Building, 
The  Pennsylvania  State  University,  Uni- 
versity Park,  Pa.  16802 
Tel.:  (814)  865-9527 

FUNCTIONAL  ABSTRACT 

VARMX  can  perform  a number  of  orthogonal  rotations  on  an  arbitrary 
matrix  of  factor  loadings,  using  the  normal  varimax  criterion. 

The  result  is  a unique  (within  tolerance  limits)  matrix  of  factor 
loadings . 

All  computations  are  done  in  double-precision  floating-point  arith 
metic.  First,  the  original  factor  loadings  as  produced  by  FANAL 
[EIN  No.  000  0051  (i)]  are  normalized  by  dividing  the  loadings  in 
each  row  by  the  square  root  of  the  communality  (sum  of  squares) 
for  that  row.  The  rotation  is  performed  with  a criterion  of  .005 
and  the  resulting  loadings  are  denormalized  to  give  the  rotated 
matrix. 

REFERENCES 

Kaiser,  H.F.,  "Computer  Program  for  Varimax  Rotation  in  Factor  An- 
alysis," Educ.  Psychol.  Meas.  19,  413—420  (1959). 
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USER  INSTRUCTIONS 


This  program  is  one  of  a collection  of  programs  that  are  all  exe- 
cuted using  the  library  program  STPAC.  The  writeup  for  STPAC  must 
be  consulted  for  the  description  of  additional  Corttrol  Cards  and 
procedures  for  running  this  program. 


Description  of  Input 

The  input  to  VARMX  consists  of  the  Control  Cards  described  below 
and  the  matrix  of  factor  loadings  to  be  rotated.  The  factor  matrix 
is  the  output  from  FANAL  [EIN  No.  000  0051(i)],  either  passed  di- 
rectly to  VARMX  by  using  the  Input- From  FANAL  option  or  in  the  form 
of  a card  deck  punched  by  FANAL  during  some  previous  job. 

Control  Cards  and  Their  Functions 

Of  the  various  Control  Cards  discussed  in  the  STPAC  writeup,  the 
Execute  Card  is  required  and  either  an  Input -From  FANAL  Card  or  a 
Begin-Data/End-Data  sequence  with  a deck  punched  by  FANAL.  There 
are  some  additional  Control  Cards  specific  to  VARMX.  They  are 
discussed  below. 

Rotate  Card(s)  (none,  one,  or  more) 

Columns  Contents 

1-  6 ROTATE 

8—80  nr  • ’nfc 

This  general  form  of  the  Rotate  Card  requests  that  k distinct  ro- 
tations be  performed,  first  rotating  the  first  ni  factors,  then 
the  first  n2  factors,  and  finally  the  first  n^  factors.  If  this 
card  is  omitted,  the  entire  matrix  of  factor  loadings  will  be  ro- 
tated . 

NOTE:  When  VARMX  is  completed,  the  output  from  FANAL  is  no  longer 

available.  It  is  destroyed  after  the  last  rotation  request  is 
completed . 

Print  Card(s)  (one  or  more) 

Columns  Contents 

1-  5 PRINT 

This  card  requests  a printout  of  the  input  matrix. 
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Punch  Card(s)  (one  or  more) 

Columns  Contents 

1-  5 PUNCH 

This  card  requests  a punched  deck  of  the  matrix  of  rotated  fac- 
tor loadings.  For  each  rotation,  a set  of  cards  will  be  punched 
for  each  variable,  with  each  set  of  cards  containing  the  corres- 
ponding rotated  factor  loadings  for  that  variable.  The  format  of 
the  punched  cards  is  ('VAR' , 13 , ’CD' , 12 ,7F10 . 5) . The  first  inte- 
ger field  is  the  variable  number,  the  second  is  a card  sequence 
number  for  this  variable,  and  the  seven  floating-point  fields  are 
for  the  rotated  loadings.  This  deck  can  then  be  submitted  to 
PPMCR  [EIN  No.  000  0051(d)]  to  correlate  the  rotated  factors. 
Actually,  a Format  Card  is  punched  along  with  some  other  Control 
Cards  so  that  about  all  that  the  deck  needs  to  submit  it  to  PPMCR 
is  an  Execute  PPMCR  Card. 

Description  of  Output 

For  each  rotation,  the  output  includes  the  communalities  and  the 
rotated  matrix  of  factor  loadings.  At  the  user's  option,  the  ori 
ginal  input  matrix  can  be  printed  out  and  a deck  of  cards  contain 
ing  the  rotated  matrix  can  be  obtained  for  possible  submission  to 
PPMCR  at  a later  date. 
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SAMPLE  INPUT 


r 


LO 

O 

o 


o 

o 

o 


_F  v F C 1 1 T F PPMCR 

TTTLF  SNFDFCOR  F * AMPL  F Om  PAOF  414 
VARtARLFS  3 

V AR 1 ARL  F NftMFS  1 a V 1 , ? = X ? * Y 
FORMAT  I FI. 1 f F?.0f  F4, ?) 

MFC, l to  OAT  A 
0O4S1A4 

no4?^n 

00*34*1 

0472454 

017*577 

0Q444H) 

10131Q3 

ll*?9Q3 

109377* 

231 4*9* 

2315077 
21* 4493 
2315*95 
0193*54 
?AiR*)R  1 *R  • 

29951 99 
FMH  nATA 
FXFC.HTF  SIGPP 
INPUT  FROM  PPMCR 
IFVFI.  .1  TFM 
FXFCIITF  ONRFO 
INPUT  FROM  PPMCR 
OFPFNOFNT  Y 
PAM  SI MONV 
FXFCHTF  IIPRFC 
INPUT  FROM  ppfeCR 
f)F PFNnFNT  Y 

fxfc.mTf  Canon 

INPUT  FROM  PPMCR 
IFFT  V 
RIGHT  XlfX? 

FXFCMTF  FANAL 
INPOT  FROM  PPMCR 
FACTORS  3 
FXFCOTF  VARMX 
INPUT  FROM  FANAl. 

STOP 


0051 (d) 


0051(e) 

0051(h) 

0051(g) 

0051  (i) 
0051  (j) 


r 
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SAMPLE  OUTPUT 


VAR  I MAX  ROTATION 
SNEDECOR  EXAMPLE  ON  PAGE  A 14 


THE  INPUT  MATRIX  FROM  FACTOR  ANALYSIS  CONTAINS  3 VARIABLES  ANO 


3 FACTORS. 


ROTATION  OF  FIRST  3 FACTORS 


COMMUNAL ITI ES 

XI  1 1.00000 

X2  2 1.00000 

Y 3 1.00000 


THE  ROTATED  MATRIX  OF  FACTOR  LOADINGS 


XI  1 

X?  2 

Y 3 


FI  F 2 

0.37412  -0.23774 

0.14472  -0.96959 

0.92506  -0.15712 


F 3 
0.  89639 
C. 19737 
0.34580 
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COST  ESTIMATE 

For  the  job  listed  on  the  Sample  Input,  the  total  running  time 
on  central  processor  unit  was  6 seconds,  at  $0.11  per  second. 

Charge  to  user  = computer  time  + network  overhead 

= $0.66  + network  overhead 


CONTENTS — (STPAC)  VARMX 
pages 

1 Identification  § Abstract 

3—  4 User  Instructions 

5-  6 I/O 

7 Cost — Contents 
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DESCRIPTIVE  TITLE  Phi  Coefficient 

CALLING  NAME  (STPAC)  PHICO 

INSTALLATION  NAME  The  Pennsylvania  State  University  Compu- 

tation Center 


AUTHOR(S)  AND 
AFFILIATION(S) 


Nancy  C.  Daubert 

The  Pennsylvania  State  University  Compu- 
tation Center 


LANGUAGE  FORTRAN  IV 


COMPUTER 
PROGRAM  AVAILABILITY 


IBM  System  360/67 

Decks  and  listings  presently  available 


CONTACT  William  H.  Verity,  104  Computer  Building, 

The  Pennsylvania  State  University,  Uni- 
versity Park,  Pa.  16802 
Tel. : (814)  865-9527 

FUNCTIONAL  ABSTRACT 


PHICO  processes  a maximum  of  105  variables  and  computes  phi  coeffi- 
cients for  all  possible  pairs  of  variables. 

Data  are  dichotomous  and  are  coded  0 and  1 or  1 and  2.  The  equation 
used  is 

phi  = (ad-bc)  / [ (a+b)  (c+d)  (a+c)  (b  + d)  ] . 


REFERENCES 

Wert,  J.E.,  Neidt,  C.O.,  and  Ahmann,  J.S.,  Statistical  Methods  in 
Educational  and  Psy  chological  Research  (Appleton— Century- 
Crofts,  New  York,  1954). 
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X USER  INSTRUCTIONS 

rH 

S This  program  is  one  of  a collection  of  programs  that  are  all  exe- 

© cuted  using  the  library  program  STPAC.  The  writeup  for  STPAC  must 

o be  consulted  for  the  description  of  additional  Control  Cards  and 
§ procedures  for  running  this  program 


Control  Cards  and  Their  Functions 

Of  the  various  STPAC  Control  Cards  discussed  in  the  STPAC  writeup, 
the  Execute,  Variables,  and  Format  Cards  are  essential  for  PHICO, 
Begin-  and  End-Data  Cards  are  also  necessary  if  the  data  have  not 
already  been  read  for  a previous  STPAC  program.  All  other  STPAC 
Control  Cards  are  optional.  There  are  some  additional  required  and 
optional  Control  Cards  specific  to  PHICO.  These  are  described 
below. 


Code  Card  (one  required) 


Columns  Contents 


1-  4 
6 


CODE 

A:  data  punched  0 and  1 

B:  data  punched  1 and  2 


Punch  Card  (optional) 


Columns  Contents 

1-  5 PUNCH 

If  this  card  is  included,  phi  coefficients  will  be  punched  on  cards 
in  addition  to  being  piinted. 


Description  of  Input  Data 

Data  must  be  punched  according  to  the  format  given  on  the  Format 
Card.  On  each  card  should  be  punched  a case  and  sequence  number 
(only  if  required,  as  described  in  the  STPAC  writeup)  and  the  data 
points  in  I format.  The  "number”  of  a variable  is  determined  by 
the  order  in  which  it  is  read,  which  is  determined  by  the  format 
supplied. 

Description  of  Output 

Phi  coefficients  are  printed  in  a triangular  matrix.  All  variables 
are  numbered.  Rows  and  columns  will  also  be  named  according  to  the 
Variable-Names  Card,  if  included.  Card  ouput  is  also  produced  when 

requested. 
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SAMPLE  INPUT 


f- x fc i it f PHicn 

TITLP  T P ST  IIP  IS  AND  ?S 

WAR  I A Ml.  FS  IS 

PI1RMA  T ( 1 SI  1 ) 

Ciinp  m 

Rpf,|M  DATA 
171111  11??2?1 1 ' I 

?i?nxii  ii??pu 

i?i  ????i u?\??  i 

i?i  n 1 122211  m v 

1712121222111112 
1?)?  I I 11 1722721 ' I 
171  71  1 1 1 22U  U 177? 

171 7 I 7 1 111 l 172? ' 

R MO  DATA 
S TUP 
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SAMPLE  OUTPUT 


» h*  m 

m *0  0* 

fNJ  O <NJ 

• » « 
o c o 
I I 


in  o go  co 
r-  O m r- 
Mn  n co 
• • • • 
o O o o 
I 


co  r-  in  f-  cd 

m K o oo 

• • • • • 

0 o o o o 

1 I I I 


m o oo  o m co 

f-  d in  o f*t- 

f-  n n o h- ro 

• •«••• 
O O O O O 

I I I I I 


00 


r*  r*  r*  r*  r*  co 

r*  * f-  * r-  * -« 

m st  in  in  >r  rvi 



o o o o o o o 

I I I I I 


in 

N 

o 

3 

in 


u. 

CJ 


>■  O 


5 § 

M 


u. 

u. 

LLI 

O 

u 


X 

a 


m 


* 


cocooooofococom 

Mf^COh.O'h-CO^ 

i * « i i • • • 

oooOcjooo 
I ! I I I 


co  O m co  o co  co 

fm  o M in  o in  N 

momNorginrsJpn 
• • 
oOO^ooooo 


COOCOCOCOcOfOGOGOf*! 

h»o^r-coh*0'h*ao«r 

• ••••••••• 

OMOO^O^OO^ 


^ « |f|  O'  CO  h 

nj  r\i  fsi  ^ <N  o 

i i « i i i 

o o o o o o 

I I I 


cc  f-  <0  g *n 

m 'C  m O <r 

N * <N  <0  N 

» I I t K 
o O O CJ  o 

I I 


m 


^^^HP»00N®P,O',t 

I i t i i e i t « l ( 

uooc  ouoooao 


aGOfncoPncocococow®^^  ® 

<j©*cr*'C«"^P'»cuP'»cur*»C7'  *r  • 

• ••••«•••••••  • 

cm  ^oooocooooooo  «*  <3 

II  III  * 


ooflofocomcodoocoofon 

mrsjM 

i i t i * i * • i • « • i t 

^MOOOOOQOOOOO  o 

1 II  1 1 1 1 II 

13 

0*775 

C.378 

NW'tlA'OMHO'O-lNfON  «•' 

W J H ^ H ^ 

>*  m 

M 

.1  I I I I I I I I I I I I I 


o 

o 

o 


o 

o 
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r 

t — \ 

CS  COST  ESTIMATE 

g For  the  job  listed  on  the  Sample  Input,  the  total  running  time 

o was  4 seconds  on  the  central  processor  unit,  at  $0.11  per  second, 

o 

g Charge  to  user  = computer  time  + network  overhead 

= $0.44  + network  overhead 


CONTENTS— STPAC 
pages 

1 Identification  § Abstract 

3 User  Instructions 

5-  6 I/O 

7 Cost — Contents 
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DESCRIPTIVE  TITLE 

CALLING  NAME 
INSTALLATION  NAME 


AUTHOR(S)  AND 
AFFILI ATION(S) 


LANGUAGE 
COMPUTER 
PROGRAM  AVAILABILITY 

CONTACT 


FUNCTIONAL  ABSTRACT 


Kendall  Rand  Correlation  Coefficients 
(tau) 

(S'fPAC)  KETAU 

The  Pennsylvania  State  University  Compu- 
tation Center 

Nancy  C.  Daubert 

The  Pennsylvania  State  University  Compu- 
tation Center 

FORTRAN  IV 

IBM  System  360/67 

Decks  and  listings  presently  available 

William  H.  Verity,  104  Computer  Building, 
The  Pennsylvania  State  University,  Uni- 
versity Park,  Pa.  16802 
Tel.  : (814)  865-9527 


KETAU  computes  Kendall  rank- correlation  coefficients  (tau) , the 
values  of  z scores  corresponding  to  them,  and  the  probabilities  and 
levels  of  significance  of  the  z scores,  for  all  possible  pairs  of 
variables.  A correction  is  made  for  ties.  The  correlation  coeffi- 
cients will  also  be  punched  on  cards,  at  the  option  of  the  user. 

REFERENCES 

Siegel,  S. , Norvarametric  Statistics  for  the  Behavioral  Sciences 
(McGraw-Hill  Book  Co.,  Inc.,  New  York:,  1956),  pp.  213-222. 
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USER  INSTRUCTIONS 

This  program  is  one  of  a collection  of  programs  that  are  all  exe- 
cuted using  the  library  program  STPAC.  The  writeup  for  STPAC  must 
be  consulted  for  the  description  of  additional  Control  Cards  and 
procedures  for  running  this  program 


Control  Cards  and  Their  Functions 


Of  the  various  STPAC  Control  Cards  discussed  in  the  STPAC  writeup, 
the  Execute,  Variables,  and  Format  Cards  are  essential  for  KETAU. 
Begin-  and  End-Data  Cards  are  also  necessary  if  the  data  have  not 
been  already  read  for  a previous  STPAC  program.  All  other  STPAC 
Control  Cards  are  optional.  There  is  one  additional  optional 
Control  Card  specific  to  KETAU.  This  is  described  below. 

Punch  Card  (optional) 

Columns  Contents 

1-  5 Punch 

This  card  should  be  included  if  the  user  wishes  to  have  the  values 
of  tau  punched,  in  addition  to  being  printed. 

Description  of  Input  Data 

Data  for  all  variables  should  be  punched  together.  The  number  of 
a variable  is  determined  by  the  order  in  which  it  is  read,  which 
is  determined  by  the  format  supplied.  Thus,  the  first  variable 
read  will  be  variable  1,  the  second  will  be  variable  2,  and  so  on. 
There  is  no  standard  format  for  raw  or  ranked  data,  but  the  data 
must  be  in  F or  E format.  Sequence  or  case  numbers,  if  needed, 
must  be  in  I format. 

Description  of  Output 

The  printed  output  for  a KETAU  problem  consists  of  four  triangular 
matrices.  All  are  headed  by  the  title  that  the  user  supplies.  All 
variables  are  numbered  and  both  rows  and  columns  will  be  named 
according  to  the  Variable-Names  Card,  if  it  is  included.  The  first 
matrix  consists  of  the  values  of  tau  for  each  possible  pair  of 
variables.  The  second  is  a table  of  z scores  associated  with  the 
corresponding  coefficients.  The  third  give  the  probabilities  of 
the  z scores  and  the  fourth  gives  their  level  of  significance.  If 
the  total  number  of  observations  is  less  than  10,  z scores  should  be 
interpreted  with  caution.  However,  special  tables  of  the  critical 
values  of  tau  in  this  range  ^re  available. 
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KENDALLS  RANK  CnPRFiATION  SIFGFL  PAGE  227 
KENDALL  RANK  COR  R FLAT  1 ON  COEFFICIENT 
NUMBER  OF  flBSFRVAT  IONS  IS  12 


STRIVING  AUTHORIT 
AUTHORIT-  2 0.6667 
CONFORM!-  3 0.3722  0.3412 


CORRESPONDING  Z SCORES  * 

1 2 
STRIVING  AUTHORIT 
AUTHOP IT-  2 3.0172 
CONFORMI-  3 1.6845  1.5441 


CORRESPONDING  PROBABILITIES  OF  l SCORESIPROR  (X  GREATFR  THAN  OR  EQUAI  TO 

- 1 2 
’ STRIVING  AUTHORIT 

AUTHORIT-  7 0.0013 

; CONFORM!-  3 0.0460  0.0613 


LEVELS  OF  S IGN  I F I CANC E 

BLANK  IF  O.^SO  < P 

« IF  0.025  < P < 0.050 

**  IF  0.010  < P < 0.025 

***  IF  0.001  < P < 0.0)0 

****  IF  P < 0.001 


1 ? 
STRIVING  AUTHORIT 
AUTHORIT-  2 *** 

CONFORM  I - 3 * 
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^ COST  ESTIMATE 

rH 

S For  the  job  listed  on  the  Sample  Input,  the  total  running  time 
° on  the  central  processor  unit  was  4 seconds  at  $0.11  per  second, 
o 

§ Charge  to  user  = computer  time  + network  overhead 

= $0.44  + network  overhead 


CONTENTS— (STPAC)  KETAU 
pages 

1 Identification  § Abstract 

3 User  Instructions 

5-  6 I/O 

7 Cost — Contents 
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DESCRIPTIVE  TITLE 
CALLING  NAME 


Spearman  Rank  Correlation  Coefficients 
(rho) 

(STPAC)  SPRHO 


INSTALLATION  NAME  The  Pennsylvania  State  University  Compu- 
tation Center 


AUTHOR(S)  AND  Nancy  C.  Daubert 
AFFILIATION (S)  The  Pennsylvania  State  University  Compu- 
tation Center 


LANGUAGE  FORTRAN  IV 


COMPUTER 
PROGRAM  AVAILABILITY 

CONTACT 


FUNCTIONAL  ABSTRACT 


IBM  System  360/67 

Decks  and  listings  presently  available 

William  H.  Verity,  104  Computer  Building, 
The  Pennsylvania  State  University,  Uni- 
versity Park,  Pa.  16802 
Tel. : (814)  865-9527 


SPRHO  computes  Spearman  rank-order  correlation  coefficients  (rho) 
and  the  values  of  t corresponding  to  them  for  all  possible  pairs 
of  variables.  A correction  is  made  for  ties.  The  correlation  co- 
efficients will  also  be  punched  on  cards  at  the  option  of  the  user. 

REFERENCES 


Siegel,  S. , Nonparametria  Statistics  for  the  Behavioral  Sciences 
(McGraw-Hill  Book  Co.,  Inc.,  New  York,  1956),  pp.  202-213. 
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USER  INSTRUCTIONS 

This  program  is  one  of  a collection  of  programs  that  are  all  exe- 
cuted using  the  library  program  STPAC.  The  writeup  for  STPAC  must 
be  consulted  for  the  description  of  additional  Control  Cards  and 
procedures  for  running  this  program. 


Control  Cards  and  Their  Functions 


Of  the  various  STPAC  Control  Cards  discussed  in  the  STPAC  writeup, 
the  Execute,  Variables,  and  Format  Cards  are  essential  for  SPRHO. 
Begin-  and  End-Data  Cards  are  also  necessary  if  the  data  have  not 
been  already  read  for  a previous  STPAC  program.  All  other  STPAC 
Control  Cards  are  optional.  There  is  one  additional  optional  Con- 
trol Card  specific  to  SPRHO.  It  is  described  below. 

Punch  Card  (optional) 

Columns  Contents 

1-  5 PUNCH 

This  card  should  be  included  if  the  user  wishes  to  have  the  corre- 
lation coefficients  punched  in  addition  to  being  printed. 

Description  of  Input  Data 

Data  for  all  variables  within  one  observation  should  be  punched  to- 
gether. The  number  of  a variable  is  determined  by  the  order  in 
which  it  is  read,  which  is  determined  by  the  format  supplied.  Thus, 
the  first  variable  read  will  be  variable  1,  the  second  will  be  vari- 
able 2,  etc.  There  is  no  standard  format,  but  the  data  must  be  in 
F or  E format.  Sequence  and  case  numbers,  if  needed,  must  be  in  I 
format . 

Description  of  Output 

The  printed  output  for  a SPRHO  problem  consists  of  two  triangular 
matrices.  Both  are  headed  by  the  title  that  the  user  supplies.  All 
variables  are  numbered  and  both  rows  and  columns  will  also  be  named 
according  to  the  Variable-Name (s)  Card,  if  it  is  included.  The 
first  matrix  consists  of  the  Spearman  rank-order  correlation  coeffi- 
cients for  all  possible  pairs  of  variables.  The  second  is  a table 
of  the  values  of  t associated  with  the  corresponding  values  of  rho. 
Degrees  of  freedom  are  given  as  part  of  the  heading.  If  the  number 
of  observations  is  less  than  10,  these  values  should  be  interpreted 
with  caution.  However,  special  tables  of  critical  values  of  rho  in 
this  range  are  available. 
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H COST  ESTIMATE 

o For  the  job  listed  on  the  Sample  Input,  the  total  running 

° was  5 seconds  on  the  central  processor  unit,  at  $0.11  per 

O 

o Charge  to  user  = computer  time  + network  overhead 

= $0.55  + network  overhead 
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DESCRIPTIVE  TITLE 
CALLING  NAME 
INSTALLATION  NAME 

AUTHOR (S ) AND 
AFFILIATION(S) 

LANGUAGE 
COMPUTER 
PROGRAM  AVAILABILITY 


Mann— Whitney  U Test 
(STPAC)  MNWHT 

The  Pennsylvania  State  University  Compu- 
tation Center 

Nancy  C.  Daubert 

The  Pennsylvania  State  University  Compu- 
tation Center 

FORTRAN  IV 

IBM  System  360/67 

Decks  and  listings  presently  available 


CONTACT  William  H.  Verity,  104  Computer  Building, 

The  Pennsylvania  State  University,  Uni- 
versity Park,  Pa.  16802 
Tel.  : (814)  865-9527 

FUNCTIONAL  ABSTRACT 


MNWHT  computes  results  for  the  Mann-Whitney  U test  and  gives  cor- 
responding z scores,  probabilities  of  the  z scores,  and  levels  of 
significance.  U’s  are  calculated  for  all  possible  pairs  of  vari- 
ables. Observations  per  variable  may  be  unequal.  A correction  is 
made  for  ties.  U's  will  be  punched  on  cards  at  the  option  of  the 
user . 


REFERENCES 

Siegre , S.,  Nonparametric  Statistics  for  the  Behavioral  Sciences 
(McGraw-Hill  Book  Co.,  Inc.,  New  York,  1956),  pp . 116-127. 
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USER  INSTRUCTIONS 

This  program  is  one  of  a collection  of  programs  that  are  all  exe- 
cuted using  the  library  program  STPAC.  The  writeup  for  STPAC  must 
be  consulted  for  the  description  of  additional  Control  Cards  and 
procedures  for  running  this  program 


Control  Cards  and  Their  Functions 

Of  the  various  Control  Cards  discussed  in  the  STPAC  writeup,  the 
Execute,  Variables,  and  Format  Cards  are  essential  for  MNWHT. 
Begin-  and  End-Data  Cards  also  are  necessary  if  the  data  have  not 
been  already  read  for  a previous  STPAC  program.  All  other  STPAC 
Control  Cards  are  optional.  One  additional  optional  Control  Card 
is  specific  to  MNWHT  and  is  described  below. 

Punch  Card  (optional) 


Columns  Contents 

1-5  PUNCH 

This  card  should  be  included  only  if  the  user  wishes  to  have  the 
values  of  U punched  or  cards  in  addition  to  being  printed. 


Description  of  Input  Uata 

Each  Data  Card  should  have  a variable -identification  number  (in 
integer  format) , followed  by  a data  point  (in  E or  F format) . Vari- 
able-identification numbers  need  not  be  successive,  but  the  program’s 
number  of  a variable  is  determined  by  the  order  in  which  it  is  read. 
All  Data  Cards  for  one  variable  should  be  together. 


Description  of  Output 

The  printed  output  for  a MNWHT  problem  consists  of  four  triangu- 
lar matrices.  All  tables  are  headed  by  a user-supplied  title. 

All  variables  are  numbered,  and  both  rows  and  columns  will  be 
named  according  to  the  Variable -Names  Card,  if  it  is  included. 
Variable  identification  in  each  table  also  includes  the  number 
of  observations  for  each  variable. 

The  first  table  consists  of  the  Mann— Whitney  U’s  for  all  sets  of 
observations.  The  second  table  gives  corresponding  z scores.  A 
z score  in  this  case  should  be  interpreted  cautiously  if  the  num- 
ber of  observations  for  both  of  the  variables  involved  is  less 
than  20.  Special  tables  are  available  to  determine  the  associated 
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probability  in  that  range.  The  third  table  gives  the  probability 
associated  with  each  z score. 

The  fourth  table  gives  the  level  of  significance  associated  with 
each  of  the  probabilities. 


r 

b 


r 

t 


L 


► 


ERLC 


.r  jr  A 

■K.tu  .JL, 


3/70 


(u)TS00  000 


EDUCOM 


EDUCATIONAL  INFORMATION  NETWORK 


I 


SAMPLE  INPUT 


000  0051 (n) 


UO 

o 

o 
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f y H r. i * ip  mmwn  i 

I I T |.  h m a M»\|  - 1 1 1«  h v { p <;  t T i \|  ^ 

VAW  1 AMI.HS  <5 

FflWMA  I ( I 1 , '()  j 

AFnir-1  HAT  A 

1 "q'.  ' *"  — 

1 1 1 

1 1 S 
? 

PI  7 
? w 
P 1 A 
P w 
PI  S 
p 1 n 
PI  S 
p l o 
Pi  S 
Pin 
?i  4 
PI  1 
?l  4 
? i 1 

PI  4 
PI  ? 

PI  s 
PI  ? 

PI  1 
p 1 p 
PI  1 
p 1 p 
'W* 


SI  1 

15  7 0 
I5H1 
*S1 


FA*n  f ^ A T A 

STOP 
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mann-whitney  test  one 

MANN  - WHITNFY  U TEST 


O 

O 

Ln 


I 

2 

3 

4 

5 

N 

3 

23 

5 

16 

4 

? 

N = 

23 

2 9.  5 Of 

- 3 

N = 

5 

0.  0 

0.0 

- 4 

N5 

16 

10. 500 

64.000 

C.O 

- 5 

4 

3.000 

20.500 

0.0 

30. COO 

- 6 

N = 

4 

0.0 

0.0 

9.000 

0.0 

o 

o 

/ N 

3 


MANN-WH I T NEY  TEST  ONE 
CORRESPONDING  Z SCORES 


1 

2 

3 

4 

5 

N 

3 

23 

5 

16 

4 

- 2 

N- 

23 

-0. 404 

- 3 

N = 

5 

-2.236 

-3.462 

- 4 

N = 

16 

-1. 532 

‘-3.451 

-3.338 

5 

N“ 

4 

-1.061 

-1.752 

-2.449 

-0.192 

- 6 

N a 

4 

-2. 121 

-3.153 

-0.245 

-3.061 

-2.309 

mann-whitney  test  ONE 

CORRESPONDING  PROBABILITIES  OF  Z SCORES!  PROBI  X GREATER  THAN  OR  EQUAL  TO  Z)  ) 


1 

2 

3 

4 

5 

N 

3 

23 

5 

16 

« 

4 

2 N= 

23 

C.  343 

.3  N* 

5 

0.  013 

0.000 

4 N* 

16 

0.  063 

0.000 

0.000 

5 N= 

4 

0.  144 

0.040 

0.007 

0.424 

6 N* 

4 

0.  017 

0.001 

0.403 

0.001 

0.010 

MANN-RHITNEY  TEST  ONE 
LEVELS  OF  SIGNIFICANCE 


BLANK  IF  0.050  < P 


* IF 
**  IF 
***  IF 
*+**  IF 


0 .025 
0.C10 
0.001 


0.050 
0.025 
0 .010 
0.001 


N 

3 

23 

5 

16 

4 

3 N* 

5 

** 

**** 

4 N» 

16 

**** 

*+** 

5 N* 

4 

* 

6 

4 

** 

**** 

*** 

** 
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COST  ESTIMATE 

For  the  job  listed  on  the  Sample  Input,  the  total 
was  4 seconds  on  the  central  processor  unit,  at  $ 

Charge  to  user  = computer  time  + network  overhead 

= $0.44  + network  overhead 
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DESCRIPTIVE  TITLE  Kruskal-Wallis  One-Way  Analysis  of  Vari- 
ance 


CALLING  NAME  (STPAC)  KRWAL 


INSTALLATION  NAME 


The  Pennsylvania  State  University  Compu- 
tation Center 


AUTHOR(S)  AND  Nancy  C.  Daubert 

AFFILIATION(S)  The  Pennsylvania  State  University  Compu- 

tation Center 


LANGUAGE  FORTRAN  IV 


COMPUTER 
PROGRAM  AVAILABILITY 


IBM  System  360/67 

Decks  and  listings  presently  available 


CONTACT  • William  H.  Verity,  104  Computer  Building, 
The  Pennsylvania  State  University,  Uni- 
versity Park,  Pa.  16802 
Tel.:  (814)  865-9527 

FUNCTIONAL  ABSTRACT 

KRWAL  does  a Kruskal-Wallis  one-way  analysis  of  variance.  The 
levels  need  not  have  equal  numbers  of  observations  in  each.  A 
correction  is  made  for  ties. 


REFERENCES 

Siegel,  Nonparametric  Statistics  for  the  Behavioral  Sciences , 
(McGraw-Hill  Book  Co.,  Inc.,  New  York,  1956). 
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USER  INSTRUCTIONS 

This  program  is  one  of  a collection  of  programs  that  are  all  exe- 
cuted by  using  the  library  program  STPAC.  The  writeup  for  STPAC 
must  be  consulted  for  the  description  of  additional  Control  Cards 
and  procedures  for  running  this  program. 


Control  Cards  and  Their  Functions 

Of  the  various  STPAC  Control  Cards  discussed  in  the  STPAC  writeup, 
the  Execute  and  Format  cards  are  essential  for  KRWAL . Begin-Data 
and  End-Data  Cards  also  are  necessary  if  the  data  have  not  been 
already  read  for  a previous  STPAC  program.  All  other  STPAC  Control 
Cards  are  optional.  No  additional  Control  Cards  are  necessary  for 
KRWAL . 

Description  of  Input  Data 

Each  Data  Card  must  contain  a level  (sample)  number  in  integer  for- 
mat and  a data  value  in  E or  F format.  Level  numbers  may  be  any 
integer  values.  They  need  not  be  consecutive  but  must  be  distinct. 
All  Data  Cards  for  a single  level  (sample)  must  be  together.  There 
is  no  standard  format  for  this  program. 

Description  of  Output 

Output  consists  of  degrees  of  freedom,  the  value  of  H,  and  the  chi- 
square  probability  of  H.  If  there  are  ties  in  the  data,  the  number 
of  groups  of  ties,  the  total  number  of  ties,  and  the  correction  fac- 
tor also  will  be  printed.  If  the  number  of  observations  per  level 
(sample)  is  less  than  five,  caution  should  be  exercised  in  the  in- 
terpretation of  the  chi-square  probability.  Tables  are  available 
for  probabilities  of  H in  this  lower  range. 
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FXFCMTF  KRWAL . 

T1TLF  SFCC1N0  TEST  UF  KRUSKAL  WALL! S ANOVA-FIRST  DATA  RANKED 

VAR1ARLFS  R 

FORMAT { 1 1 • F 3. 1 ) 

RF01N  DATA 
1 RS 
1775 
1 475 
141 
UlS 
1S4S 
1 IS 
1 47  R 
177S 
1 1 

777c, 

?4  l 

_ 

714 
71  SS 
"?  RS 
7 S 
347^ 


SIRS 

77^ 

71  7*» 
71  ?S 
71  RS 
' 7 7S 
7 ?S 
RIR*C 
R 1 S S 
R3S 


R 4 

fwh  hTta 
stop 
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KRUSKALL -WALL  I S ONE  KAY  ANALYSIS  OF  VARIANCE  BY  RANKS 
SECOND  TFST  CF  KRUSKAL  WALLIS  ANDV  A -F I R ST  DATA  RANKED 
7 DEGRFFS  OF  FREEDOM 
H = lR.SAS 

1?»  GROUPS  OF  TICS.  b(>  TOTAL  TIES.  CORRECTION  FACTOR  IS  0.«m5310 
CHI  SOJARE  PROBABILITY  = 0.009664 
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COST  ESTIMATE 

ror  the  job  listed  on  the  Sample  Input,  the  total  running  time 
was  4 seconds  on  the  central  processor  unit,  at  $0.11  per  second. 

Charge  to  user  = computer  time  + network  overhead 

= $0.44  + network  overhead 


CONTENTS — (STPAC ) KRWAL 


pages 

1 Identification  § Abstract 

3 User  Instructions 

5-  6 I/O 

7 Cost — Contents 
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DESCRIPTIVE  TITLE  Analysis  - of -Variance  Method  of  Unweighted 

Means 


CALLING  NAME  (STPAC)  ANOVUM 


INSTALLATION  NAME  The  Pennsylvania  State  University  Compu- 
tation Center 

AUTHOR(S)  AND  Nancy  C.  Daubert 
A FF 1 1. 1 AT  1 0 N ( S ) The  Pennsylvania  State  University  Compu- 
tation Center 


LANGUAGE  FORTRAN  IV 


COMPUTER 
PROGRAM  AVAILABILITY 

CONTACT 


FUNCTIONAL  ABSTRACT 


IBM  System  360/67 

Decks  and  listings  presently  available 

William  H.  Verity,  104  Computer  Building, 
The  Pennsylvania  State  University,  Uni- 
versity Park,  Pa.  16802 
Tel.:  (814)  865-9527 


ANOVUM  is  designed  to  handle  a factorial  analysis  of  variance  with 
either  equal  or  unequal  numbers  of  observations  in  subclasses.  The 
method  of  unweighted  means  is  based  on  the  assumption  that  the  po- 
pulation from  which  the  sample  is  drawn  has  proportional  or  equal 
subclass  numbers.  It  can  be  relied  upon  only  if  the  subclass  num- 
bers are  approximate! v equal  and  presumably  represent  a population 
with  equal  numbers.  • ue  analysis  is  performed  upon  the  means  for 
each  cell,  and  each  sum  of  squares  is  multiplied  by  the  harmonic 
mean  of  the  number  of  observations  per  cell.  Up  to  150  variables 
(separate  analyses)  will  be  permitted  with  data  code  = 1.  Only 
1 variable  is  acceptable  with  data  code  = 0. 


A Bartlett's  test  for  homogeneity  of  variance  is  performed  on  the 
raw  data.  If  the  chi  square  computed  in  this  test  is  significant 
at  the  0.05  level,  the  conclusions  of  the  analysis  of  variance 
should  be  interpreted  cautiously.  If  cell  frequencies  are  greater 
than  1,  and  if  they  are  equal,  a Scheffe's  test  will  be  performed 
on  main  effects. 


REFERENCES 


Winer,  B.J.,  Statistical 
Hill  Book  Co.,  Inc., 


Principles  in  Experimental  Design  (McGraw— 
New  York,  1962),  pp.  95-96,  222-224. 
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USER  INSTRUCTIONS 

This  Program  is  one  of  a collection  of  programs  that  are  all  exe- 
cuted using  the  library  program  STPAC.  The  writeup  for  STPAC  must 
be  consulted  for  the  description  of  additional  Control  Cards  and 
procedures  for  running  this  program. 


Control  Cards  and  Their  Functions 


1 Of  the  various  Control  Cards  discussed  in  the  STPAC  writeup,  the 

Execute  and  Format  Cards  are  essential  for  ANOVUM.  Begin-  and  End- 
1 Data  Cards  are  also  necessary  if  the  data  have  not  already  been 

read  for  a previous  STPAC  program.  All  other  STPAC  Control  Cards 
are  optional.  Some  additional  Control  Cards  are  required  and  some 
, optional  Control  Cards  are  specific  to  ANOVUM  (see  below) . 

r 

r Treatments  Card  (required) 


r 


Co lumn8 

1-10 

12 

14-19 

21-80 


Contents 

TREATMENTS 

N,  the  number  of  treatments 
LEVELS 

Li ,L2 , * * * ,L^;  L^  is  the  number  of  levels  for  the  itn 
treatment 


Data-Code  Card  (required) 


Columns  Contents 

1-  9 DATA  CODE 

11  1:  there  is  one  data  point  per  variable  per  card,  pre- 

ceded by  cell  identification 

0:  all  data  for  a single  cell  are  punched  on  a single 

card  or  card  sequence.  If  more  than  one  Data  Card  per 
cell  is  required  (i.e.,  if  cell  identification  and  data 
use  more  than  80  columns),  a sequence  number  must  be  in- 
cluded on  each  card,  following  the  cell  identification. 
See  Data  Cards,  below. 

Equal  or  Unequal  Card  (required  only  if  data  code  is  0) 


Columns  Contents 

1-80  EQUAL  n SEQUENCED  m PERCARD 

or 
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Columns  Contents 

UNEQUAL  n SEQUENCED  m PERCARD 

This  card  indicates  whether  the  cell  frequencies  are  equal  or  un- 
equal. n must  be  the  number  of  observations  per  cell  if  cells  are 
equal  or  the  maximum  number  of  observations  per  cell  if  cells  are 
unequal . 

The  next  three  fields  may  be  omitted  if  only  one  Data  Card  per  cell 
is  necessary.  If,  however,  more  than  one  Data  Card  per  cell  is  ne- 
cessary, the  last  three  fields  of  this  card  must  be  included,  m,  in 
this  case,  is  the  number  of  data  points  per  card. 

Punch  Card  (optional) 

Columns  Contents 

1-  5 PUNCH 

This  card  should  be  included  only  if  the  user  desires  punched-card 
output  of  means. 

Cell  Summary  Card  (optional) 

Columns  Contents 

1-12  CELL  SUMMARY 

This  card  calls  for  a summary  table  of  cell  frequencies,  means,  vari- 
ance, and  degrees  of  freedom  to  be  printed. 

Treatment  Summary  Card  (optional) 

Columns  Contents 

1-17  TREATMENT  SUMMARY 

This  card  calls  for  a summary  table  of  totals,  number  of  observa- 
tions, means,  and  sums  of  squares  for  each  treatment  group  and  com 
bination  to  be  printed. 

Missing-Data  Card  (optional) 

Columns  Contents 

1-12  MISSING  DATA 

14—21  x,  any  number  up  to  eight  digits,  including  a decimal, 

which  will  be  read  as  a code  for  missing  data 

Include  this  card  only  if  some  data  are  missing.  If  this  card  is 
omitted,  it  will  be  assumed  that  all  fields  contain  data  (blanks 
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will  be  read  as  zero).  If  this  card  is  included  with  Cols.  14-21 
blank,  zeros  and  blanks  in  the  Data  Cards  will  be  treated  as  miss- 
ing data.  If  Cols.  14—21  are  punched,  the  number  x in  a data 
field  will  be  treated  as  a case  of  missing  data. 

Scheffe  Card  (optional) 

Columns  Contents 

1-  7 SCHEFFE 

9-80  Desired  level  of  alpha  for  the  Scheffe  test.  (The  de- 
fault level  of  alpha  is  0.05.) 

No  standard  format  is  provided  for  this  program;  format  must  be 
supplied  by  the  user  as  specified  in  the  requirements  for  STPAC. 

Data  Cards 

Data  Cards  are  punched  with  code  numbers  signifying  level  for  each 
treatment,  starting  at  the  lefthand  side  of  the  card  (cell  identi- 
fication). These  must  be  in  integer  format.  The  first  (Ix)  indi- 
cates level  for  treatment  1;  the  second  (I2)  indicates  level  for 
treatment  2;  etc.  If  any  of  the  Ii,***,In  are  blank  or  zero,  the 
card  will  be  ignored  by  the  program.  If  any  of  the  I x , • • • , IN  are 
greater  than  the  maximum  number  of  levels  specified  on  the  Treat- 
ments Card,  the  analysis  will  not  be  performed. 

If  the  data  code  is  1,  a single  data  point  for  each  of  the  vari- 

ables specified  (in  F,  D,  or  E format)  follows  the  cell  identifi- 
cation. Data  Cards  with  this  data  code  may  be  in  any  order. 

If  the  data  code  is  0,  and  cell  frequencies  are  unequal,  the  num- 
ber of  data  points  in  that  particular  cell  (in  I format)  must  im- 
mediately follow  the  cell  identification.  If  a sequence  number 
is  also  required,  it  (also  in  I format)  follows  the  number  of  data 
points.  In  the  case  where  more  than  one  card  per  cell  is  needed 
under  data  code  = 0,  cell  identification,  number  of  data  points, 
and  sequence  number  must  be  the  first  items  of  information  on 

every  card.  Data  fields  follow  the  preceding  fields.  All  cards 

for  a single  cell  must  be  together. 

PcctcL  Code  = 1 FORM  \ I x , • • • , Ijj  X x , • • • , Xj( 

where  I i , • • • , In  are  integer  cell- identification  numbers,  identify- 
ing one  level  for  each  of  the  N treatments;  Xi,***,Xj(  are  data 
points,  one  for  each  of  K specified  variables. 
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Data  Code  = 0 FORM  1:  1 1 , • • • , Xi,***,Xn 

WHEN:  cell  frequencies  are  equal 

all  data  for  a cell  on  single  card 

/ are  integer  cell • identification  numbers,  identifying  one 

level  for  each  of  the  N treatments;  Xi,,**,Xn  are  n data  points 
as  specified  on  the  Equal  Card. 

FORM  2 : I i , • • • , 1^  M Xi , • • • 

WHEN:  cell  frequencies  are  unequal 

data  for  a cell  on  single  card 

1 1 , • • • , Ijsj  are  integer  cell- identification  numbers,  identifying  one 
level  for  each  of  the  N treatments;  M (an  integer)  is  the  number  of 
data  points  i£  that  particular  cell;  X i , • • • are  the  M data  points. 

FORM  3:  I i , • • • , IN  J Xi , • • • ,Xm 

WHEN:  cell  frequencies  are  equal 

more  than  1 card  necessary  for  all  data 
points  in  each  cell 

Ii,«**,Im  are  integer  cell-identification  numbers,  identifying  one 
level  for  each  of  the  N treatments;  J (integer)  is  the  card  sequence 
number;  Xi,***,Xm  are  the  m data  points  per  sequenced  card,  as  spe- 
cified on  the  Equal  Card. 

FORM  4:  1 1 , • • • , IN  M J Xi , * * *Xm 

WHEN:  cell  frequencies  are  unequal 

more  than  1 card  necessary  for  all  data 
points  in  each  cell 

Ii,’*’,In  are  integer  cell - identification  numbers,  identifying  one 
level  for  each  of  the  N treatments;  M (integer)  is  the  number  of 
data  points  in  that  particular  cell  and  must  be  repeated  for  every 
card  in  that  cell;  J (integer)  is  the  card  sequence  number;  Xi  , 

• • • ,Xm  are  the  m data  points  per  sequenced  card,  as  specified  on  the 
Unequal  Card. 

Description  of  Output 

For  each  cell,  mean,  number,  variance,  degrees  of  freedom,  and  cell 
identification  are  printed  at  the  option  of  the  user.  Chi  square, 
correction  factor,  degrees  of  freedom,  and  probability  are  printed 
for  the  Bartlett’s  test  for  homogeneity  of  variance.  For  each  treat- 
ment group  and  combination,  total,  number  of  observations,  mean,  and 
sum  of  squares  are  given  at  the  option  of  the  user.  An  analysis- of- 
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variance  summary  table,  including  treatment  names  (according  to 
Treatment— Names  Card),  sums  of  squares,  degrees  of  freedom,  mean 
squares,  and  F ratios,  and  their  probabilities  will  be  given,  along 
with  the  output  from  the  Scheffe's  test  if  applicable. 


REFERENCES 

Winer,  B.J. , Statistical  Principles  in  Experimental  Design  (McGraw- 
Hill  Book  Co.,  Inc.,  New  York,  1962),  pp.  95-96,  222-224. 


» 


c 

2/70 

o 

ERIC 


7 


(d)TSOO  000 


EDUCOM 


EDUCATIONAL  INFORMATION  NETWORK 

000  0051 (p) 


a 


rH 

LO 

O 

O 


fc> 


o 

o 

o 


I 


v 


SAMPLE  INPUT 


FyFChif  AmiiwiiM 

I | f|  l-  MF  MOMS  T w A M 1 IM  OF  A •'  l i\/l  I •I*11  Ff'IIM.  IIRSFHVATIIIM^  pFw  f.H.I 
TP  F A | I FM  s 1 l/''H  S 7 ? > 

Jp  F A T »*F  A'  T SUMMARY 
WAR  I A HI.  FS  1 
r P |_  | MIMMAfiV 

T p F A T a> h M T NANK  1 = , ?5i  ‘As.IMH 

FUR  mat  ( '41  ) t ?F?  .ft) 

data  rnnF  n 
foiiai  7 

up r, i a«  n a ta 

1 i 1 ?*>*** 

I I 

1 P 1 1 SI ^ 

1 77 1 ni 7 
711  m H 
71711  7 
77  1 S 
777  * « 

FMO  MATA 

ST  HP. 
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DEMONSTRATION  CF  ANnVUM  WITH  F Oil AL  OBSERVATIONS  PEP  CELL 

VARIABLE  NUMBER  1 


MF  AM 

30.S00 

36.000 
14. COO 

11.000 

8.600 

9.000 
4.500 

7.000 


N VARIANCE 
2 60.600') 
2 98. COCO 
2 2.0000 
2 2.  COO) 
2 0.6090 
2 8.0000 
2 0.S000 
2 2. COCO 


DEGREES  OF  FREEDOM  CELL 

1 111 

1 112 

1 12  1 

1 12  2 

1 2 11 

1 2 12 

1 2 2 1 

1 2 2 2 


CnPRECTTMN  FACTOR  I 9 


1.375C0 


BAP  TL  E T T*  S t^ST  OF  HOMOGENEITY  OF  VARIANCE: 

CHI  SQUARE  ^ 9.66HC  °ROR Art! LI TY  = 0.214402 

7 DEGREES  OF  FREEDOM 

USE  CAUTION  IN  I N TE* PRE TA T ICN  lc  ANY  CELL  FREQUENCIES  ARE  LESS  THAN  3 


O 

O 

o 


o 

o 

Cn 
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DEMONSTRATION  OF  ANflVlJM  WITH  EQUAL  OBSERVATIONS  PER  CELL 


CELL 

FREQUENCIES 

ARE 

EQUAL  - STANDARD 

ANALYSIS 

FOLLOWS 

VARIABLE  NUMRf  H 

TREATMENT  LEVEL 

TOTAL 

N 

MEAN 

SUN  OF  SQUARES 

1 

1 

. i;.  OoOO 

8 

22.8750 

0.4186130  04 

2 

•jt»*COOO 

8 

7.2500 

0 .4205000  03 

2 

1 

165.C000 

8 

21.0000 

0.3528000  (4 

2 

73.0000 

8 

9.1250 

0.6661250  03 

3 

1 

115.0000 

8 

14.3750 

0.1653130  0 

2 

126.0000 

8 

15.7500 

0 . 1884500  0 

12 

1 

1 

133.C000 

4 

33.2500 

L .4422250  04 

2 

1 

35.0000 

4 

8.7500 

0.3062500  03 

1 

2 

50.0000 

4 

12.5000 

0.6250000  03 

2 

2 

23.0000 

4 

5.7500 

0.1322500  03 

13 

l 

1 

89.0000 

4 

22.2500 

0.1980250  04 

2 

1 

26.0000 

4 

6.5000 

0.1690000  03 

1 

2 

94.0000 

4 

23.5000 

0.2209000  04 

2 

2 

32.0000 

4 

8.0000 

C. 2560000  03 

23 

1 

1 

78.0000 

4 

19.5000 

0.1521000  04 

2 

1 

37.0000 

4 

9.2500 

0.3422500  03 

1 

2 

90.0000 

4 

22.5000 

0.2025000  04 

2 

2 

36.0000 

4 

9.0000 

0.3240000  03 

123 

l 

1 

1 

61.0000 

2 

30.5000 

0.1860500  04 

2 

1 

1 

17.0000 

2 

8.5000 

0.1445000  03 

1 

2 

1 

28.0000 

2 

14.0000 

0.3920000  03 

2 

2 

1 

9. 0000 

2 

4.5000 

0.4050000  02 

1 

1 

2 

72.0000 

2 

36.0000 

0.2592000  04 

2 

1 

2 

18.0000 

2 

9.0000 

0.1620000  03 

1 

2 

2 

22.0000 

2 

11.0000 

0.2420000  03 

2 

2 

2 

14.0000 

2 

7.0000 

0.9800000  02 
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DEMONSTRATION  OF  ANOVUM  WITH  EQUAL  OBSERVATIONS  PEP  CELL 

VARIABLE  NUMBER  l 


O 

o 

cn 


ANALYSIS  OF  VARIANCE  SUMMARY  TABLE 


source 

SUMS  OF  SQUARES 

OF 

MEAN  SQUARES 

F RATIO 

PROBABILITY 

l 

SEX 

0.976563D 

03 

1 

0 .9765630  03 

45.029 

0.0000 

2 

INCOME 

0 . 5640630 

03 

1 

0 • 564063D  03 

26 « 009 

0.0000 

3 

JOB 

C. 756250D 

01 

1 

0.7562500  01 

0*349 

0.5711 

12 

0.315C63D 

03 

1 

0,3150630  03 

14*527 

0.0052 

13 

0.625CC0D 

-01 

1 

0.6250000-01 

0*003 

0.9505 

23 

0. 105625D 

02 

1 

0.1056250  02 

0*407 

0.5050 

123 

0.275625D 

02 

1 

0.2756250  02 

1.271 

0.2923 

ERROR 

0.  173500! 

03 

8 

0 .2166750  02 

»d 


CORRECTED  TOTAL  SUM  OF  SQUARES  * 0.207494D  04 


UNC0PRECTEO  TOTAL  SUM  OF  SQUARES  * 0.570500D  04 


TREATMENT 

LEVEL 

DIFFERS 

FROM 

LEVEL 

WITH  ALPHA  = 0.0500.  0IFFFRENCE 

BETWEEN 

MEANS 

SCHEFFc'S 

CONSTANT 

ESTIMATE  OF  VARIANCE 
OF  DIFFERENCES 

1 

1 

2 

0.15630  02 

2.316 

O.2320D  01 

2 

1 

2 

0.118BD  02 

2.316 

0.2326D  01 
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COST  ESTIMATE 

For  the  job  listed  on  the  Sample  Input,  the  total  running  time 
was  8 seconds  on  the  central -processor  unit,  at  $0.11  per  second. 

Charge  to  user  = computer  time  + network  overhead 

= $0.88  + network  overhead 
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DESCRIPTIVE  TITLE 

Analysis  of  Variance  with  Unequal  Sub- 
class Numbers  (Method  of  Expected  Sub- 
class Numbers) 

o 

o 

CALLING  NAME 

(STPAC)  ANOVES 

o 

o 

INSTALLATION  NAME 

The  Pennsylvania  State  University  Compu- 
tation Center 

AUTHOR(S)  AND 
AFFILIATION(S) 

Nancy  C.  Daubert 

The  Pennsylvania  State  University  Compu- 
tation Center 

* LANGUAGE 

FORTRAN  IV 

COMPUTER 

IBM  System  360/67 

PROGRAM  AVAILABILITY 

Decks  and  listings  presently  available 

CONTACT 

William  H.  Verity,  104  Computer  Building 
The  Pennsylvania  State  University,  Uni- 
versity Park,  Pa.  16802 
Tel.:  (814)  865-9527 

FUNCTIONAL  ABSTRACT 

ANOVES  is  designed  to  handle  a factorial  analysis  of  variance  with 
unequal  numbers  of  observations  in  subclasses  (cells).  A problem 
with  equal  subclass  numbers  is  acceptable,  although  it  is  not  ad- 
visable to  use  ANOVES  for  a balanced  design  with  equal  subclass 
numbers  owing  to  its  relatively  long  computing  time  as  compared 
to  that  of  ANOVUM.  Up  to  150  variables  (separate  analyses)  will 
be  permitted  with  data  code  = 1.  Only  one  variable  is  acceptable 
with  data  code  = 0. 


This  method  of  analyzing  data  of  multiple  classifications  with  un- 
equal subclass  numbers  is  based  on  the  assumption  that  the  popula- 
tion from  which  the  sample  is  drawn  has  proportional  or  equal  sub- 
class numbers.  Under  its  fundamental  hypotheses,  this  method  af- 
fords an  estimate  of  both  the  main  effects  and  the  interactions. 
However,  every  subclass  must  contain  at  least  one  observed  value. 

If  the  computed  chi-square  value  for  disproportionality  is  signi- 
ficant, a reduction  factor  will  be  calculated  and  all  the  sums  of 
squares  (except  the  with -in  subclasses,  which  is  calculated  from 
the  original  data)  will  be  reduced  accordingly.  This  is  an  attempt 
to  remove  part  of  the  disproportionality  of  the  data. 


continued 


3/70 

o 


1 


(b)TSOO  000 


000  0051 (q) 


EDUCATIONAL  INFORMATION  NETWORK 

000  0051 (q) 


EDUCOM 


The  probability  associated  with  the  chi-square  value  computed  by 
using  subclass  numbers  is  calculated  and  the  0.05  probability  point 
is  considered  critical  in  determining  whether  a reduction  factor 
will  be  computed  or  not. 

The  reduction  factor  is 


N 

K 

Z E2/A 

1 


where  N is  the  total  number  of  observations,  K is  the  number  of  cell 
subclasses,  E is  the  expected  number  of  observations  in  a cell,  and 
A is  the  actual  number  of  observations  in  the  same  cell. 

A Bartlett's  test  for  homogeneity  of  variance  is  performed  on  the 
raw  data.  If  the  chi  square  computed  in  this  test  is  significant, 
the  conclusions  of  the  analysis  of  variance  should  be  interpreted 
cautiously . 

REFERENCES 

Snedecor,  G.W.,  and  Cox,  G.M.,  "Disproportionate  Subclass  Numbers 
in  Tables  of  Multiple  Classification,”  la.  Agriculture  Sta. 

Res.  Bui.  180 , 233-272  (1935). 

Bennett,  K.R.  (personal  correspondence  to  J.  Streeter). 

Winer,  B.J.,  Statistical  Principles  in  Experimental  Design  (McGraw- 
Hill  Book  Co.,  Inc.,  New  York,  1962). 
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USER  INSTRUCTIONS 

This  program  is  one  of  a collection  of  programs  that  are  all  exe- 
cuted using  the  library  program  STPAC.  The  writeup  for  STPAC  must 
be  consulted  for  the  description  of  additional  Control  Cards  and 
procedures  for  running  this  program. 


Control  Cards  and  Their  Functions 

Of  the  various  Control  Cards  discussed  in  the  STPAC  writeup,  the 
Execute  and  Format  Cards  are  essential  for  ANOVES.  Begin-  and  End- 
Data  Cards  are  also  necessary  if  the  data  have  not  already  been 
read  for  a previous  STPAC  program.  All  other  STPAC  Control  Cards 
are  optional.  Some  additional  Control  Cards  are  required  and  some 
optional  Control  Cards  are  specific  to  ANOVES  (see  below) . 


T reatments 

Columns 

1-10 

12 

14-19 

21-80 


Card  (required) 

Contents 

TREATMENTS 

N,  the  number  of  treatments 
LEVELS 

t h 

Li,  L2, * * * ,Ln;  Lt  is  the  number  of  levels  for  the  l 
treatment  N 


Data-Code  Card  (required) 

Columns  Contents 


1-  9 DATA  CODE 

11  1:  there  is  one  data  point  per  variable  per  card,  pre- 

ceded by  cell  identification 

0:  all  data  for  a single  cell  are  punched  on  a single 

card  or  card  sequence.  If  more  than  one  Data  Card  per 
cell  is  required  (i.e.,  if  cell  identification  and  data 
use  more  than  80  columns),  a sequence  number  must  be  in- 
cluded on  each  card,  following  the  cell  identification. 
See  Data  Cards,  below. 

Equal  or  Unequal  Card  (required  only  if  data  code  is  0) 


Columns  Contents 

1-80  EQUAL  n SEQUENCED  m PERCARD 

or 
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Columns  Contents 

UNEQUAL  n SEQUENCED  m PERCARD 

This  card  indicates  whether  the  cell  frequencies  are  equal  or  un- 
equal. n must  be  the  number  of  observations  per  cell  if  cells  are 
equal  or  the  maximum  number  of  observations  per  cell  if  cells  are 
unequal . 

The  next  three  fields  may  be  omitted  if  only  one  Data  Card  per  cell 
is  necessary.  If,  however,  more  than  one  Data  Card  per  cell  is  ne- 
cessary, the  last  three  fields  of  this  card  must  be  included,  m,  in 
this  case,  is  the  number  of  data  points  per  card. 

Punch  Card  (optional) 

Columns  Contents 

1-  5 PUNCH 

This  card  should  be  included  only  if  the  user  desires  punched-card 
output  of  means . 

Cell  Summary  Card  (optional) 

Columns  Contents 

1-12  CELL  SUMMARY 

This  card  calls  for  a summary  table  of  cell  frequencies,  means, 
variance,  and  degrees  of  freedom  to  be  printed. 

Treatment  Summary  Card  (optional) 

Columns  Contents 

1-17  TREATMENT  SUMMARY 

This  card  calls  for  a summary  table  of  totals,  number  of  observa- 
tions, means,  and  sums  of  squares  for  each  treatment  group  and  com- 
bination to  be  printed. 

Missing-Data  Card  (optional) 

Columns  Contents 

1-12  MISSING  DATA 

14—21  x,  any  number  up  to  eight  digits,  including  a decimal, 

which  will  be  read  as  a code  for  missing  data 

Include  this  card  only  if  some  data  are  missing.  If  this  card  is 
omitted,  it  will  be  assumed  that  all  fields  contain  data  (blanks 
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will  be  read  as  zero).  If  this  card  is  included  with  Cols.  14-21 
blank, zeros  and  blanks  in  the  Data  Cards  will  be  treated  as  miss- 
ing data.  If  Cols.  14-21  are  punched,  the  number  x in  a data 
field  will  be  treated  as  a case  of  missing  data. 

No  standard  format  is  provided  for  this  program;  format  must  be 
supplied  by  the  user  as  specified  in  the  requirements  for  STPAC. 

Data  Cards 

Data  Cards  are  punched  with  code  numbers  signifying  level  for  each 
treatment,  starting  at  the  lefthand  side  of  the  card  (cell  identi- 
fication). These  must  be  in  integer  format.  The  first  C I i ) indi- 
cates level  for  treatment  1;  the  second  (I2)  indicates  level  for 
treatment  2;  etc.  If  any  of  the  Ii,*;*,In  aT%  bjank  °r  Ze?0,a!^e 
card  will  be  ignored  by  the  program.  If  any  of  the  are 

greater  than  the  maximum  number  of  levels  specified  on  the  Treat- 
ments Card,  the  analysis  will  not  be  performed. 

If  the  data  code  is  1,  a single  data  point  for  each  of  the  vari- 

ables specified  (in  F,  D,  or  E format)  follows  the  cell  identifi- 
cation. Data  Cards  with  this  data  code  may  be  in  any  order. 

1 

1 

[_  If  the  data  code  is  0,  and  cell  frequencies  are  unequal,  the  num- 

t ber  of  data  points  in  that  particular  cell  (in  I format)  must  1m- 

' mediately  follow  the  cell  identification.  If  a sequence  number 

is  also  required,  it  (also  in  I format)  follows  the  number  of  data 
points.  In  the  case  where  more  than  one  card  per  cell  is  needed 
under  data  code  = 0,  cell  identification,  number  of  data  points, 
and  sequence  number  must  be  the  first  items  of  information  on 
- every  card.  Data  fields  follow  the  preceding  fields.  All  cards 

for  a single  cell  must  be  together. 

t Data  Code  - 1 FORM:  Ii,***,I^  Xi , * * * ,X^ 

where  Ii>***>In  are  integer  cell-identification  numbers,  identify- 
ing one  level  for  each  of  the  N treatments;  Xi,***,Xk  are  data 
points,  one  for  each  of  K specified  variables. 

Data  Code  = 0 FORM  1:  Ii,***,I^Xi,  ,Xn 

: WHEN:  cell  frequencies  are  equal 

all  data  for  a cell  on  single  card 

" 1 1 » * * ' » In  are  integer  cell- identification  numbers,  identifying  one 

level  for  each  of  the  N treatments;  Xi , • • • >X^  are  the  n data  points 
as  specified  on  the  Equal  Card. 
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FORM  2:  I i , ' * ’ , IN  M Xi , * ' * ,XM 


C- 

o 


WHEN:  cell  frequencies  are  unequal 

data  for  a cell  on  single  card 


o 

o 

L n 


I !,•••,  Ijsj  are  integer  cell  - identification  numbers,  identifying  one 
level  for  each  of  the  N treatments;  M (an  integer)  is  the  number 
of  data  points  in  that  particular  cell;  Xi,***,Xm  are  the  M data 
points . 


1 1 , - - • , Ijq  are  integer  cell-identification  numbers,  identifying  one 
level  for  each  of  the  N treatments;  J (integer)  is  the  card  sequence 
number;  are  the  m data  points  per  sequenced  card,  as  spe- 

cified on  the  Equal  Card. 


Ii»**’»lN  are  integer  cell -identification  numbers,  identifying  one 
level  for  each  of  the  N treatments;  M (integer)  is  the  number  of 
data  points  in  that  particular  cell  and  must  be  repeated  for  every 
card  in  that  cell;  J (integer)  is  the  card  sequence  number;  Xi, 

• • • ,Xm  are  the  m data  points  per  sequenced  card,  as  specified  on 
the  Unequal  Card. 

Description  of  Output 

The  chi-square  value  of  the  Bartlett's  test  for  homogeneity  of  vari- 
ance is  printed  out,  along  with  its  associated  probability.  For 
each  cell,  the  total,  number  of  observations,  mean,  expected  total, 
and  expected  mean  are  printed  also.  The  chi-square  value  for  dis- 
proport ionality  is  printed  along  with  its  associated  probability. 

If  this  chi  square  is  significant  at  the  0.05  level,  the  reduction 
factor  is  also  printed.  For  each  treatment  group  and  combination, 
expected  total,  expected  number  of  observations,  and  sum  of  squares 
are  given.  An  analysis -of -variance  summary  table,  including  treat- 
ment names  (according  to  Treatment-Names  Card),  sums  of  squares, 
degrees  of  freedom,  mean  squares,  and  F ratios,  is  printed  last. 

Card  output  of  means  is  provided  at  the  option  of  the  user. 


FORM  3:  I i , • * • , IN  J Xi,--*,Xm 


WHEN:  cell  frequencies  are  equal 


more  than  1 card  necessary  for  all  data 
points  in  each  cell 


FORM  4:  I i , • • • , IN  M J Xi , • • • ,Xm 


WHEN:  cell  frequencies  are  unequal 


more  than  1 card  necessary  for  all  data 
points  in  each  cell 
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EXFC  AMnVFS 

TRFATMFNTS  3 LFVH.S  ? 7 ? 

data  rnnp  i 

trfatmfnt  namfs  transfer 

FnRMATnil,F?.0) 

trfatmfnt  summary 

VARfARLFS  1 

R FIT  f N nATA 

n i7s 

1 172R 
17115 

1 ??1o 
711  q 
21711 
271  S 
222  A 

i mi 
ll??R 
27115 
2771  ^ 

FMn  hata 
STnp 


i 


\ 
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SAMPLE  OUTPUT 


BARTLETT'S  TEST  FOR  HOMOGENEITY  OF  VARIANCE 
VARIABLE  NUMBER  1 


BARTLETT'S  TEST  CANNOT  OE  COMPUTED  BECAUSE  ONE  OR  MORE  CELL  FREQUENCIES  EQUAL  1; 
OR  BECAUSE  ONE  OR  MORE  VARIANCES  EQUAL  0. 


VARIABLE  NUMBER  1 


FACTOR 

1 


12 


13 


23 


123 


SOURCE 

1 

2 

3 

12 

13 

23 

123 


OF 

DISPROPORTION4LITY 

OF  SUBCLASS 

FREQUENCIES  ■ 

= 1 

.3333  P = 

C. 248213 

VARIABLE 

NUMBER 

1 

TREATMENT  SJMMAPY  - MARGINAL  VALUES 

LEVEL 

EXPECTED  TOTAL 

EXPECTED  NO. 

EXPECTED  MEAN 

SUM  OF  SQUARES 

1 

120.7500 

6.000 

20. 1250 

0.2430090 

04 

2 

59.2500 

6.000 

9.8750 

0.5850940 

03 

1 

113.2500 

6.003 

18.8750 

0.2137590 

04 

2 

66.7500 

6.000 

11.1250 

0.7425940 

03 

1 

93.0000 

6.303 

15.5000 

0. 1441500 

04 

2 

87.0000 

6.000 

14.5000 

0.1261500 

04 

1 

1 

83.2500 

3.000 

27.7500 

0.2310190 

04 

2 

1 

30.3000 

3.003 

10.0000 

0.3000000 

03 

1 

2 

37.5000 

3.000 

12.5000 

0.4687500 

03 

2 

2 

29.2500 

3.003 

9.7500 

0.2851880 

03 

1 

1 

64.5000 

3.000 

21.5000 

0.1386750 

04 

2 

1 

28.5000 

3.300 

9.5000 

0. 2707500 

03 

1 

2 

56.2500 

3.300 

18.7500 

0. 1054690 

04 

2 

2 

30.7500 

3.003 

10.2500 

0.3151880 

03 

1 

1 

55.5000 

3.003 

18.5000 

3.1026750 

04 

2 

1 

37.5000 

3.300 

12.5000 

0.4687500 

03 

1 

2 

57.7500 

3.000 

19.2  500 

0. 1111690 

04 

2 

2 

29.2500 

3.000 

9.7500 

0.2851880 

03 

1 

1 

1 

42.0000 

1.500 

28 .0000 

0.  1176000 

04 

2 

1 

1 

13.5000 

1.500 

9.0000 

9.1215000 

03 

1 

2 

1 

22.5000 

1.500 

15.0000 

0.3375000 

03 

2 

2 

1 

15.0000 

1.500 

10.0000 

0.1500000 

03 

1 

1 

2 

41.2500 

1.500 

27.5000 

0.1134380 

04 

2 

1 

2 

16.5000 

1.500 

11 .0000 

0. 1815000 

03 

1 

2 

2 

15.3000 

1.503 

10.0000 

0.1500000 

03 

2 

2 

2 

14.2500 

1.500 

9.5000 

0. 1353750 

03 

VARIABLE 

NUMBER 

1 

ANALYSI S OF 

VARIANCE  SUMMARY  TABLE 

SUMS  OF  SQi 

UARES  OF 

MEAN  SQUARES 

F RATIO 

0.3151660 

03 

1 

0.3151660 

03 

12.997 

0.1601660 

03 

1 

0 .160166  ) 

03 

7.430 

0.3000000 

01 

1 

0.3000000 

01 

0.124 

0. 166750D 

03 

1 

0 . 16675C 0 

03 

6.959 

0.9187500 

01 

1 

0.9167500 

01 

0.379 

0.9187500 

01 

1 

0.9167500 

01 

0.379 

0.7500COD 

00 

1 

0.7500000 

00 

0.031 

ERROR 


0* 9700000  02 


0.242500D  02 


•INCORPECTEO  TOTAL  SUM  OF  SQUARES 


0. 4085C0D  04 
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COST  ESTIMATE 

For  the  job  listed  on  the  Sample  Input,  the  total  running  time 
was  4 seconds  on  the  central  processor  unit,  at  $0.11  per  second. 

Charge  to  user  = computer  time  + network  overhead 

= $0.44  + network  overhead 


CONTENTS — (STPAC ) AN0VES 


pages 

1-  2 Identification  § Abstract 

3—  6 User  Instructions 

7-8  I/O 

9 Cost — Contents 
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DFSCRIPTIVE  TITLE 

CALLING  NAME 
INSTALLATION  NAME 

AUTHOR(S)  AND 
A F F I L I AT  1 0 N ( S ) 

LANGUAGE 
COMPUTER 
PROGRAM  AVAILABILITY 

CONTACT 


FUNCTIONAL  ABSTRACT 


Analysis  of  Variance  with  Repeated  Mea- 
sures (Proportionality  Assumed) 

(STPAC)  AOVRM 

The  Pennsylvania  State  University  Compu- 
tation Center 


Nancy  C.  Daubert 

The  Pennsylvania  State  University  Compu- 
tation Center 

FORTRAN  IV 

IBM  System  360/67 

Decks  and  listings  presently  available 

William  H.  Verity,  104  Computer  Building, 
The  Pennsylvania  State  University,  Uni- 
versity Park,  Pa.  16802 
Tel.  : (814)  865-9527 


AOVRM  is  designed  to  handle  a factorial  analysis  of  variance  with  \ 

repeated  measures  and  either  equal  or  unequal  numbers  of  observa- 
tions in  subclasses  (cells).  A problem  with  no  repeated  measures  ( 

is  acceptable,  although  it  is  not  advisable  to  use  AVORM  for  such 
a design  owing  to  the  relatively  long  computing  me  as  compared 
with  that  of  ANOVM  or  ANOVES. 


This  method  of  analyzing  data  of  multiple  classifications  with  un- 
equal subclass  numbers  is  based  on  the  assumption  that  the  popula- 
tion from  which  the  sample  is  drawn  has  proportional  or  equal  sub- 
class numbers.  This  method  allows  calculation  of  all  main  effects 
and  interactions.  However,  every  subclass  must  contain  at  least 
one  subject  and  the  data  for  every  subject  included  must  be  complete. 


REFERENCES 

Winer,  B.J. , Statistical  Principles  in  Experimental  Design  (McGraw- 
Hill  Book  Co.,  Inc.,  New  York,  1962). 
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USER  INSTRUCTIONS 


This  program  is  one  of  a collection  of  programs  that  are  all  exe- 
cuted using  the  library  program  STPAC.  The  writeup  for  STPAC  must 
be  consulted  for  the  description  of  additional  Control  Cards  and 
procedures  for  running  this  program. 

Control  Cards  and  Their  Functions 

Of  the  various  Control  Cards  discussed  in  the  STPAC  writeup,  the 
Execute,  Variables,  and  Format  Cards  are  essential  for  AVORM. 
Begin-  and  End-Dat;.  Cards  are  also  necessary  if  the  data  have  not 
already  been  read  for  a previous  STPAC  program.  All  other  STPAC 
Control  Cards  are  optional.  Some  additional  Control  Cards  are 
required  and  some  optional  Control  Cards  are  specific  to  AOVRM 
(see  below) . 


T reatments 

Card  (required) 

Co lumns 

Contents 

1-10 

TREATMENTS 

12 

N,  the  number  of  treatments 

14-19 

21-80 

LEVELS 

Li,  L2  , ’ ’ ’ , L^;  L^  is  the  number  of  levels 
treatment 

for  the  i ^ 

This  card 
the  design 

form  is  used  only  if  no  repeated  measures  are 
. For  repeated  treatments,  use  the  following 

involved  in 
form. 

Columns 

Contents 

1-10 

TREATMENTS 

12 

N,  the  total  number  of  treatments 

14-21 

REPEATED 

23 

M,  the  number  of  repeated  treatments 

25-30 

LEVELS 

32-80 

Li,  Li,’’*,  L , as  above.  The  repeated-measure  treat- 
ments must  benthe  last  M of  the  N treatments 

Data- Code 

Card  (required) 

Columns 

Contents 

1-  9 

DATA  CODE 
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Data-Code  Card 

Columns  Contents 

11  l:  there  is  one  data  point  per  card,  preceded  by  cell 

identification  for  all  treatements , and  the  subject 
number 

0:  all  data  for  a single  subject  are  punched  on  a 

single  card  or  card  sequence.  If  more  than  one  Data 
Card  per  subject  is  required  (i.e.,  if  cell  identifi- 
cation and  data  use  more  than  80  columns),  the  format 
supplied  by  the  user  must  take  this  into  account.  The 
program  will  not.  Cell  identification  in  this  case  is 
only  for  the  nonrepeated  measures  and  the  subject  number 

Observations  Card  (required) 

Columns  Contents 

1-12  OBSERVATIONS 

14—80  N,  an  integer,  the  number  of  observations  per  cell  (in 

the  case  of  equal  cell  frequencies)  or  the  maximum 
number  of  subjects  per  cell  (in  the  case  of  unequal 
cell  frequencies) 

♦, 

Punch  Card  (optional) 

Columns  Contents 

1-  5 PUNCH 

This  card  should  be  included  only  if  the  user  desires  punched-card 
output  of  means. 

Cell  Summary  Card  (optional) 

Columns  Contents 

1-12  CELL  SUMMARY 

This  card  calls  for  a summary  table  of  cell  frequencies,  means, 
variance,  and  degrees  of  freedom  to  be  printed. 

Treatment  Summary  Card  (optional) 

Columns  Contents 

1-17  TREATMENT  SUMMARY 

This  card  calls  for  a summary  table  of  totals,  number  of  observa- 
tions , means , and  sums  of  squares  for  each  treatment  group  and  com- 
bination to  be  printed.  , . , 

r oontznuea 
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Missing-Data  Card  (required  if  there  are  unequal  number  of  subjects 
in  subclasses) 

Columns  Contents 

1-12  MISSING  DATA 

14-21  x,  any  number  up  to  eight  digits,  including  a decimal, 

which  will  be  read  as  a code  for  missing  data 

If  this  card  is  omitted,  it  will  be  assumed  that  all  fields  contain 
data  (blanks  will  be  read  as  zero).  If  this  card  is  included  with 
Cols.  14-21  blank,  zeros  and  blanks  in  the  Data  Cards  will  be 
treated  as  missing  data.  If  Cols.  14-21  are  punched,  the  number  x 
in  a data  field  will  be  treated  as  a case  of  missing  data. 

Data  Cards 

If  data  code  = 1,  Data  Cards  are  punched  with  code  numbers  signifying 
level  for  each  treatment,  the  code  for  the  subject  (all  in  integer 
format),  followed  by  a single  data  point  (in  F,  E,  or  D format). 

If  data  code  = 0,  Data  Cards  are  punched  with  code  numbers  signifying 
level  for  each  nonrepeated  treatment,  the  code  for  the  subject  (all 
in  integer  format),  followed  by  all  the  data  for  that  subject  (in 
F,  E , or  D format) . 

The  order  in  which  the  data  are  punched  if  data  code  = 0 is  critical, 
since  order  is  the  only  way  in  which  the  program  can  identify  the 
data.  The  first  treatment  level  to  be  changed  should  be  the  last 
repeated-measure  treatment.  The  last  to  be  changed  should  be  the 
first  repeated-measure  treatment;  i.e.,  data  for  the  levels  of  the 
innermost  treatment  in  the  nest  of  treatments  should  be  punched 
first,  and  so  on,  to  the  outermost. 

Subject  codes  must  be  consecutive,  beginning  with  1,  for  each  indi- 
vidual cell,  whether  data  code  = 0 or  1. 

Description  of  Output 

For  each  cell,  the  mean,  number,  variance,  degrees  of  freedom,  and 
cell  identification  are  printed  at  the  option  of  the  user.  For  each 
treatment  group  and  combination,  the  total,  number  of  observations, 
mean,  and  sum  of  squares  are  given,  also  at  the  user's  option. 

An  analysis  - of- variance  summary  table— including  treatment  names 
(according  to  the  Treatment-Names  Card,  if  provided) , sums  of 
squares,  degrees  of  freedom,  mean  squares,  and  F ratios  for  all 
treatments,  interactions,  and  error  terms— is  printed  last. 

Punched-card  output  of  cell  means  is  provided  optionally. 
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SAMPLE  INPUT 


FXFCUTF  AH\/RM 

’TRFATMFNTS  4 RFPFATPn  2 TJV FTS  2 2 2 ' 

n a t a r.nnF  o 
HR  SFR\/  A T ! flNS  2 
TRFATMFWT  SUMMARY 
VARIARI.FS  1 
FOR  MA  T ( 3 1 1 , 6F2 .0) 

TRFATMFMT  WAMFS  \ =S  F X f 2='  ICCUP  A Tl  ON  , 3 = P FR  I DO  f 4 = T FST 
RFP.  T M nATA 
Ui41S2394A3R47 
i l ? A 1 49^A4S 
\ i?l4?R043S03S4R 

l7241S44S534n4q 
21 1^R493R4 73747 
21  ?^S0394*3?4« 

1 2213RSM45031 47 

22241 S?404ft3S4h 
FMD  HAT A 
STOP 
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SAMPLE  OUTPUT 


TREATMENT 


1 


2 

\ 


i 


3 


4 


12 


LEVEL 

TOTAL 

N 

MEAN 

SUM  OF  SQUARES 

1 

1075.0000 

24 

44.7917 

0.481510D  05 

2 

1011.0000 

24 

42.1250 

0 <42  58840  05 

1 

1024.0000 

24 

42.6667 

0*4369070  05 

2 

1062.0000 

24 

44.2500 

0.4699350  05 

1 

720.0000 

16 

45.0000 

0.3240000  05 

2 

706.0000 

16 

44. 1250 

0.3115230  05 

3 

660.0000 

16 

41.2500 

0.2722500  05 

1 

912.0000 

24 

38.0000 

0.3465600  05 

2 

1174.0000 

24 

48 • Q 1 67 

0.5742820  05 

1 1 

523.0000 

12 

43.5833 

0.2279410  05 

2 1 

501.0000 

12 

41.7500 

0.20«U4*&^Q,5 

1 2 

552.0000 

12 

46.0000 

0.2539200  05 

2 2 

510.0000 

12 

42.5000 

0.2167500  05 

| 134 

1 


i 


1 1 

2 1 

1 2 

2 2 

1 3 

2 3 

1 1 

2 l 

1 2 

2 2 

1 3 

2 3 


2 

2 

2 

2 

2 

2 


162.0000 

147. 0000 

168.0000 

151.0000 

149.0000 

135.0000 

209.0000 

202.0000 

199.0000 

189.0000 

189.0000 

197.0000 


4 40.5000 
4 36.7500 
4 42.0000 
4 37.7500 
4 37.2500 
4 33.7500 
4 52.2500 
4 50.5000 
4 49.5000 
4 47.2500 
4 47.2500 
4 46.7500 


0.656100D 
0 .5402250 
0.70  5600D 
0.570025D 
0.5550250 
0 .4556250 
0.1092030 
0.1020100 
0.9801000 
0.83  30250 
0.8930250 
0.8742250 


04 

04 

04 

04 

04 

04 


05 

05 

04 

04 

04 

04 


234 

1 1 1 

2 1 1 

1 2 1 

2 2 1 

1 3 1 

2 3 1 

1 1 2 

2 1 2 

1 2 2 

2 2 2 

1 3 2 

2 3 2 


145.0000 

4 

36.2500 

164.0000 

4 

41.0000 

157.0000 

4 

39.2500 

162.0000 

4 

40.5000 

143.0000 

4 

35.7500 

141.0000 

4 

35.2500 

204.0000 

4 

51.0000 

207.0000 

4 

51.7500 

198.0000 

4 

47.0000 

199.0000 

4 

49.7500 

187.0000 

4 

46.7530 

189.0000 

4 

47.2500 

0.5256250  04 
0.6724000  04 
0.6162250  04 
0.6561000  04 
0.5112250  04 
0.4970250  04 
0.1040400  05 
0.1071230  05 
0.8836000  04 
0.9900250  04 
0.8742250  04 
0.8930250  04 


1234 

1 

2 

1 


1 1 1 
1 1 1 
2 1 1 


77.0000  2 38.5000 

69.0000  2 34.0000 

95.0000  2 42.5000 


0.2964500  04 
0.2312000  04 
0.3612500  04 


► 


t 


\ o 
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2 

2 

1 

1 

79.0000 

2 

39.5000 

0.3120500 

04 

1 

1 

2 

1 

80.0000 

2 

40.0000 

0.3200000 

04 

2 

1 

2 

1 

77.0000 

2 

38.5000 

0.2964500 

04 

1 

2 

2 

1 

88.0000 

2 

44.0000 

0.3872000 

04 

2 

2 

2 

1 

74.0000 

2 

37.0000 

0.2738000 

04 

1 

1 

3 

1 

74.0000 

2 

37.0000 

0.2738000 

04 

2 

1 

3 

1 

69.0000 

2 

34.5000 

0.2380500 

04 

1 

2 

3 

1 

75.0000 

2 

37.5000 

0.2812500 

04 

2 

2 

3 

1 

66.0000 

2 

33.0000 

0.2178000 

04 

1 

1 

1 

2 

1 05.0000 

2 

52.5000 

0.5512500 

04 

2 

1 

1 

2 

99.0000 

2 

49.5000 

0.4900500 

04 

1 

2 

1 

2 

104.0000 

2 

52.0000 

0.5408000 

04 

2 

2 

1 

2 

103.0000 

2 

51.5000 

0.5304500 

04 

1 

1 

2 

2 

95.0000 

2 

47.5000 

0.4512500 

04 

2 

1 

2 

2 

93.0000 

2 

46.5000 

0.4324500 

04 

1 

2 

2 

2 

1 03.0000 

2 

51.5000 

0.5304500 

04 

2 

2 

2 

2 

96.0000 

2 

48.0000 

0.4608000 

04 

1 

1 

3 

2 

92.0000 

2 

46.0000 

0.4232000 

04 

2 

1 

3 

2 

95.0000 

2 

47.5000 

0.4512500 

04 

1 

2 

3 

2 

97.0000 

2 

48.5000 

0.4704500 

04 

2 

2 

3 

2 

92.0000 

2 

46.0000 

0.4232000 

04 

ANALYSIS 

OF  VARIANCE  SUMMARY 

TABLE 

SOURCE 

SUMS  OF 

SQUARES  OF 

MEAN 

SQUARES 

F RATIO 

BETWEEN  SUBJECTS 


1 SEX 

2 nCCUPATI 

12 

ERROR 


0 • 8533330  02 
0.3008330  02 
0.8333330  01 
0.2950000  02 


1 

0.8533330 

02 

11.571 

1 

0.3008330 

02 

A .079 

1 

0.8333330 

01 

1.130 

4 

0 • 7375000 

01 

WITHIN  SUBJECTS 


3 

PER  130 

0. 123167D 

03 

2 

3.6158330 

02 

29.859 

13 

0.3166670 

01 

2 

3. 1^',3330 

01 

0.768 

23 

0.1616670 

02 

2 

0.8083330 

01 

3.919 

123 

0.2066670 

02 

2 

0. 103333ui 

02 

5.010 

ERROR 

0.1650000 

02 

8 

0.2062500 

01 

4 

TEST 

0. 143CC80 

04 

1 

3 • 1630080 

04 

162.664 

14 

0.1633330 

02 

1 

0.1633330 

02 

1.858 

2*t 

0.  7500000 

00 

1 

0.7500000 

00 

0 .085 

124 

0. 3333330 

00 

1 

0. 3333330 

CO 

0.03  8 

ERROR 

C. 351667D 

C2 

4 

0.8791670 

01 

34 

0. 3816670 

02 

2 

0.1908330 

0? 

5.48  5 

134 

0.6666670 

00 

2 

0.3333330 

oc 

0.096 

234 

P.1850COD 

02 

2 

0.9250000 

01 

2.659 

1234 

0. 3166670 

01 

2 

0.1583330 

01 

0.455 

ERROR 

0. 2793330 

02 

8 

0 .3679170 

01 

GRAND  TOTAL  = 0.2C8600D  04 

NUMBER  OF  DATA  POINTS  * 48 

CORRECTION  FACTOR  = 0 • 9C65AID  05 

UNCORRECTED  SUM  OF  SQUARES  = 0.9255800  05 
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► 


r 

w COST  ESTIMATE 

rH 

g For  the  job  listed  on  the  Sample  Input,  the  total  running  time 

o was  5 seconds  on  the  central  processor  unit,  at  $0.11  per  second, 

o 

g Charge  to  user  = computer  time  + network  overhead 

= $0.55  + network  overhead 


CONTENTS — ( STPAC ) AOVRM 


pages 

1 

3-  5 
7-10 
11 


Identification  § Abstract 

User  Instructions 

I/O 

Cost — Contents 


•..Jib 


1 o 
ERLC 


4/71 


000  0051 (r) 


EDUCOM 


EDUCATIONAL  INFORMATION  NETWORK 

000  0051 (s) 


</) 


DESCRIPTIVE  TITLE  Bartlett’s  Test  for  Homogeneity  of  Vari- 
ance 


CALLING  NAME  (STPAC)  BARTL 


INSTALLATION  NAME  The  Pennsylvania  State  University  Compu- 
tation Center 


AUTHOR(S)  AND  Nancy  C.  Daubert 

AFFILIATION(S)  The  Pennsylvania  State  University  Compu- 

tation Center 


LANGUAGE  FORTRAN  IV 


COMPUTER  IBM  System  360/67 

PROGRAM  AVAILABILITY  Decks  and  listings  presently  available 

CONTACT  William  H.  Verity,  104  Computer  Building, 
The  Pennsylvania  State  University,  Uni- 
versity Park,  Pa.  16802 
Tel.:  (814)  865-9527 


FUNCTIONAL  ABSTRACT 

BARTL  performs  a Bartlett’s  test  for  homogeneity  of  variance  on 
up  to  6000  subgroups  (or  cells) . Subgroups  may  be  equal  or  un- 
equal . 

REFERENCES 

Winer,  B.J.  Statistical  Principles  in  Experimental  Design  (McGraw- 
Hill  Book  Co.,  Inc.,  New  York,  1962),  pp . 95-96. 
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USER  INSTRUCTIONS 

This  program  is  one  of  a collection  of  programs  that  are  all  exe- 
cuted using  the  library  program  STPAC.  The  writeup  for  STPAC  must 
be  consulted  for  the  description  of  additional  Control  Cards  and 
procedures  for  running  this  program. 


Control  Cards  and  Their  Functions 

Of  the  various  Control  Cards  discussed  in  the  STPAC  writeup,  the 
Execute  and  Format  Cards  are  essential  for  BARTL.  Begin-  and  End- 
Data  Cards  are  also  necessary  if  the  data  have  not  already  been 
read  for  a previous  STPAC  program.  All  other  STPAC  Control  Cards 
are  optional.  Some  additional  Control  Cards  are  required  and  some 
optional  Control  Cards  are  specific  to  BARTL  (see  below) . 


Treatments  Card  (required  only  if  data  code  = 0 or  1 — i.e.,  data 

are  punched  as  for  analysis  of  variance) 

Columns  Contents 

1-10  TREATMENTS 

12  N,  the  number  of  treatments 

14-19  LEVELS 

t h 

21—80  L x , L 2 » • • • , L^;  L.  is  the  number  of  levels  for  the  i 

treatment 

Data-Code  Card  (required) 

Columns  Contents 

1-  9 DATA  CODE 

11  1 or  2:  there  is  one  data  point  per  card,  preceded 

by  subgroup  identification.  Further  differentiation 
between  these  two  codes  will  be  included  in  the  sec- 
tion on  Data  Cards . 

0:  all  data  for  a single  subgroup  are  punched  on  a 

single  card  or  card  sequence.  If  more  than  one  Data 
Card  per  subgroup  is  required  (i.e.,  if  subgroup  iden- 
tification and  data  use  more  than  80  columns) , a se- 
quence number  must  be  included  on  each  card,  following 
the  subgroup  identification.  See  Data  Cards,  below. 
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Equal  or  Unequal  Card  (required  only  if  data  code  is  0) 

Columns  Contents 

1—80  EQUAL  n SEQUENCED  m PERCARD 

or 

UNEQUAL  n SEQUENCED  m PERCARD 

This  card  indicates  whether  the  cell  frequencies  are  equal  or  un- 
equal. n must  be  the  number  of  observations  per  cell  if  cells  are 
equal  or  the  maximum  number  of  observations  per  cell  if  cells  are 
unequal . 

The  next  three  fields  may  be  omitted  if  only  one  Data  Card  per  cell 
is  necessary.  If,  however,  more  than  one  Data  Card  per  cell  is  ne- 
cessary, the  last  three  fields  of  this  card  must  be  included,  m, 
in  this  case,  is  the  number  of  data  points  per  card. 

No  standard  format  is  provided  for  this  program;  format  must  be 
supplied  by  the  user  as  specified  in  the  requirements  for  STPAC . 

Data  Cards 

Data  Cards  are  punched  with  code  numbers  that  are  the  subgroup- 
or  cell- identification  numbers.  These  must  be  in  integer  format. 

For  data  code  = 2,  the  subgroup  identification  must  be  a single- 
integer  number,  and  a single  data  point  (in  F,  E,  or  D format) 
follows  the  identification  number.  Identification  numbers  in 
this  data  code  need  not  be  sequential  (i.e.,  an  analysis  could 
be  performed  on  subgroups  identified  as  1,  22,  1000,  50),  but 
all  cards  for  a single  subgroup  must  be  together. 

For  data  codes  = 0 and  1,  Data  Cards  are  punched  with  code  numbers 
signifying  level  for  each  treatment,  starting  at  the  lefthand  side 
of  the  card  (cell  identification).  These  must  be  in  integer  for- 
mat. The  first  (Ii)  indicates  level  for  treatment  1;  the  second 
(I2)  indicates  level  for  treatment  2;  etc. 

If  the  data  code  is  1,  a single  data  point  (in  F,  D,  or  E format) 
follows  the  cell  identification  (cell  identification  as  in  the 
analysis  of  variance) . Data  Cards  with  this  data  code  may  be  in 
any  order. 

Data  Code  = 2 FORM:  I X 

v 

where  I is  an  integer  subgroup -identification  number  and  X is  a 
single  data  point  in  F,  E,  or  D format.  This  is  the  proper  form 
whether  cell  frequencies  are  equal  or  unequal. 
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Data,  Cade  = 1 FORM:  1 1 , * * • , 1^  X 

where  I x , • • • , In  are  integer  cell - identification  numbers,  identify- 
ing one  level  for  each  of  the  N treatments;  X is  a single  data 
point . 


Data,  Code  = 0 FORM  1:  1 1 , * * * , Ij^  Xi,,#,,Xn 

WHEN:  cell  frequencies  are  equal 

all  data  for  a cell  on  single  card 

I In  are  integer  cell-identification  numbers,  identifying  one 

level  for  each  of  the  N treatments;  Xi,,,#,Xn  are  the  n data 
points  as  specified  on  the  Equal  Card. 


FORM  2:  It , — , IN  M Xi,---,XM 

WHEN:  cell  frequencies  are  unequal 

data  for  a cell  on  single  card 

1 1 *****  In  are  i-nteger  cell- identification  numbers,  identifying  one 
level  for  each  of  the  N treatments;  M (an  integer)  is  the  number 
of  data  points  in  that  particular  cell;  Xi , • • • ,XM  are  the  M data 
points . 


FORM  3:  Ii,***,Ij^J  X i , • • • , X^ 

WHEN:  cell  frequencies  are  equal 

more  than  1 card  necessary  for  all 
data  points  in  each  cell 

1 1,***, In  are  integer  cell-identification  numbers,  identifying  one 
level  for  each  of  the  N treatments;  J (integer)  is  the  card  sequence 
number;  Xi,***,X  are  the  m data  points  per  sequenced  card,  as 
specified  on  the  Equal  Card. 

FORM  4:  Ii , — • IN  M J X1,--*,Xm 

WHEN:  cell  frequencies  are  unequal 

more  than  1 card  necessary  for  all 
data  points  in  each  cell 

Ii,‘‘*,lN  are  integer  cell - identification  numbers,  identifying  one 
level  for  each  of  the  N treatments;  M (integer)  is  the  number  of 
data  points  in  that  particular  cell  and  must  be  repeated  for  every 
card  in  that  cell;  J (integer)  is  the  card  sequence  number;  Xi, 

• * • , Xm  are  the  m data  points  per  sequenced  card,  as  specified  on 
the  Unequal  Card. 
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Description  of  Output  o 

For  each  subgroup  (or  cell),  its  variance,  degrees  of  freedom,  and  § 
identification  are  printed.  - 0 

O 

The  chi-square  value  of  the  Bartlett's  test,  along  with  its  cor-  2 

rection  factor,  degrees  of  freedom,  and  associated  probability  ^ 

are  printed.  v-' 

NOTE ; A Bartlett's  test  cannot  and  will  not  be  calculated  if  any 
of  the  subgroups  have  only  one  observation  or  a variance  equal  to  0. 
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COST  ESTIMATE 

For  the  job  listed  on  the  Sample  Input,  the  total 
was  4 seconds  on  the  central  processor  unit,  at  $ 

Charge  to  user  = computer  time  + network  overhead 

= $0.44  + network  overhead 
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DESCRIPTIVE  TITLE 
CALLING  NAME 
INSTALLATION  NAME 

AUTHOR(S)  AND 
AFFILIATION(S) 

LANGUAGE 

COMPUTER 

PROGRAM  AVAILABILITY 

CONTACT 


FUNCTIONAL  ABSTRACT 


CalComp  Plotter  Subroutines 

See  specific  subroutine 

The  University  of  Iowa 
University  Computer  Center 

CalComp 

Modified  by  the  University  of  Iowa 
FORTRAN  IV 
IBM  360/65 

Available  for  use  at  the  University 
of  Iowa,  but  not  for  distribution 

Mrs.  Louise  R.  Levine,  Program 
Librarian,  Applications  Programming, 
University  Computer  Center,  The 
University  of  Iowa,  Iowa  City, 

Iowa  52240 

Tel.:  (319)  353-5580 


The  CalComp  plot  routines  are  a series  of  subroutines  used  to 
obtain  graphic  output.  They  are  designed  for  the  following 
purposes : 


1)  providing  values  to  scale  data  to  fit  the  plotting  area, 

2)  drawing  identification  symbols  at  plotted  data  points, 

3)  drawing  connected  lines  between  data  points  (when  desired) , 

4)  drawing  and  labeling  axes  at  any  desired  orientation,  and 

5)  selecting  from  a large  number  of  characters,  numbers,  and 
special  symbols,  any  of  which  can  be  drawn  in  any  size 
and  at  any  angular  orientation  anywhere  on  the  plotting 
surface. 

These  routines  have  been  written  by  CalComp  and  modified  by 
the  University  of  Iowa  to  run  under  OS  on  the  IBM  360/65. 
Plotting  is  done  off  line.  The  user’s  plotter  program  will 
create  a plot  tape  containing  various  commands  used  to  drive 
a drum  plotter  (see  fig.  1).  Each  of  eight  possible  commands 
moves  the  pen  1/100  of  an  inch  in  one  of  the  eight  designated 
directions  (see  fig.  2).  In  addition  there  are  commands  to  move 

continued 


1 

?37 


o 


1/71 


000  0052 


000  0052 


EDUCATIONAL  INFORMATION  NETWORK 


EDUCOM 


000  0052 


the  pen  up  and  down.  The  plot  tape  is  then  taken  to  a smaller 
computer  which  drives  the  CalComp  plotter  (see  fig.  3). 

Access  to  the  plot  routines  is  by  the  FORTRAN  "CALL"  statement. 
Integer  and  floating  point  conventions  must  be  followed  (i.e. 
integer  arguments  must  be  used  where  the  dummy  argument  speci- 
fies integer,  likewise  for  floating  point) . All  x and  y co- 
ordinates used  as  arguments,  must  be  expressed  as  floating 
point  inches  within  actual  page  dimensions  and  in  deflection 
from  the  (0.,0.)  origin  or  the  established  reference  point 
which  is  an  established  (0.,0.)  origin.  If  the  y coordinates 
are  not  within  actual  page  dimensions  in  deflection  from  the 
reference  point,  that  reference  point  will  be  destroyed  and 
anything  plotted  after  that  will  be  erroneous.  For  orientation 
of  the  paper  see  fig.  1.  All  angles  must  be  expressed  in 
floating  point  degrees,  with  the  positive 
wise.  Character  heights  are  specified  as 
These  heights  should  be  greater  than  0.07 
size.  Page  size  is  11  inches  high  and 
since  paper  is  continuous  to  a maximum 


sense  counterclock- 
floating point  inches 
but  less  than  page 
any  reasonable  length, 
length  of  120  ft. 


Figure  1 
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REFERENCES 

Plotter  Subroutines  for  CalComp  Digital  Inoremental  Plotter 
(Iowa  City,  la.:  Univ.  Comp.  Ctr. , Univ.  of  la.,  1970), 

Revised.  Available  from  the  EIN  Office  at  the  cost  of 
reproduction  and  mailing. 
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USER  INSTRUCTIONS 

The  user  is  referred  to  the  reference  below  for  instructions 
regarding  use  of  the  subroutines. 

REFERENCES 

t>  Plotter  Subroutines  for  CalComp  Digital  Incremental  Plotter 

(Iowa  City,  la.:  Univ.  Comp.  Ctr. , Univ.  of  la.,  1970), 

Revised.  Available  from  the  EIN  Office  at  the  cost  of 
1 reproduction  and  mailing. 
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g //  EXEC  FORTPLOT 

o //FORT.SYSIN  DD 

DIMENSION  BUFFERC600), IDENTC9) 

DATA  I DENT / ’ LOUISE  LEVINE  UCC  PLOT  COURSE  ’/ 

C SET  REFERENCE  POINT  PENUP 
CALL  PLOT(0.,-12. ,-3) 

C MOVE  ORIGIN  PEN  UP 

CALL  PLOTCO . ,2  .,-3) 

C DRAW  BOX  8X3.5  PEN  DOWN 
CALL  PLOTC8 . , 0 . , 2) 

CALL  PLOTC8.,3.5,2) 

CALL  PLOTCO. ,3. 5,2) 

CALL  PLOTCO. ,0.0, 2) 

C PRINT  NAME  IN  BOX 

CALL  SYMBOLCl. ,2. , 1 . , * LOUI SE * , 0 . , 6) 

CALL  SYMBOLCl., .5,1., ’ LEVI NE ’ , 0 . , 6) 

C TERMINATE  PLOTTING 
CALL  WRAPUP 
CALL  EXIT 
END 

/ /GO . SYS  I N DD  " 

V /" 
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Reduced  to  60%  of  original  size( 


LflUJSE  LEV J NE  UCC  PLOT  COURSf 


<4  m 

242 
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COST  ESTIMATE 

The  costing  algorithm  is  based  on  the  amount  of  computing  time, 
I/O  accesses,  core  storage,  cards  in  and  out,  and  lines  and 
pages  printed.  The  total  cost  for  the  Sample  Output  above  was 
$0.71. 


Charge  to  user  = computer  costs  + postage  + network  overhead 

- $0.71  + postage  + network  overhead 


CONTENTS— CALC0MP  PLOTTER  SUBROUTINES 
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DESCRIPTIVE  TITLE 
CALLING  NAME 
INSTALLATION  NAME 


r 


AUTHOR ( S ) AND 
A F F I L I A F 1 0 N ( S ) 

LANGUAGE 

COMPUTER 

PROGRAM  AVAILABILITY 

CONTACT 


BEEF  Data  Processing  Subroutines 
BEEFDP 

The  University  of  Notre  Dame  Computing 
Center 

Westinghouse  Electric  Corporation 
UNIVAC  Division  of  Sperry  Rand  Corporation 

SLEUTH  I I /FORTRAN  IV 

UNIVAC  1107 

Decks  and  listings  presently  available 

Elizabeth  Hutcheson,  EIN  Technical 
Representative,  Computing  Center, 
University  of  Notre  Dame,  Notre  Dame, 

Ind.  46556 

Tel.:  (219)  283-7784 

FUNCTIONAL  ABSTRACT 

The  BEEF  Data  Processing  library  is  a set  of  subroutines  supplied 
by  UNIVAC  to  "enhance  FORTRAN’S  abilities  as  a commercial  proces- 
sor." This  enrichment  is  in  the  form  of  subroutines  for  whole 
word  data  movement,  character  and  field  movement,  supplementary 
formatting,  decision-making  with  FORTRAN  arrays,  data  conversion, 
report  generation  and  control,  I/O  control,  sorting,  and  com- 
patability  *ith  EAM/EDP  (Electronic  Accounting  Machine/Electronic 
Data  Processing)  equipment. 

REFERENCE 

UNIVAC  1107  BEEF  Data  Processing  Manual 3 (UP-3985),  (UNIVAC 
Division  of  Sperry  Rand  Corp.,  N.Y.).  Copies  of  this 
manual  are  available  through  the  local  UNIVAC  representative 
or  through  the  EIN  Office  at  the  cost  of  reproduction  and 
mailing. 
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USER  INSTRUCTIONS 

Full  details  of  the  description  and  use  of  the  BEEFDP  library 
are  given  in  the  reference  cited  below.  A brief  description 
of  the  library  subroutines  is  presented  as  an  aid  for  the 
interested  person.  The  user  should  specify  the  subprogram  name 
to  obtain  all  the  subroutines  listed  under  that  name,  for  a run. 


Subprogram  Name 

WWDM 


CAFM 


Subroutine  Name  Description 

Whole  Word  Data  Movement 

MOVEKA  Moves  the  contents  of  a 

word  into  an  array 

MOVEKL  Moves  the  contents  of  a 

word  into  a list  specified 
in  the  calling  sequence 

MOVEAA  Moves  whole  words  from  one 

array  to  another 

MOVEAL  Moves  whole  words  from  an 

array  to  a list  specified 
in  the  calling  sequence 

MOVELA  Moves  whole  words  from  a 

list  specified  in  the  call- 
ing sequence  to  an  array 

MOVELL  Moves  one  list  of  words  to 

another 

Character  and  Field  Movement 

IXTRAC  Selects  a character  from  an 

array  and  creates  a variable 
FORTRAN  integer 

INSERT  Replaces  a character  with 

the  low  order  bits  of  a 
FORTRAN  integer  variable 

MOVECH  Transfers  a field  of  charac- 

ters from  one  array  to 
another 

EXTRAC  Selects  a character  from  an 

array  and  creates  a Hollerith 
variable 

ENSERT  Places  a single  Hollerith 

character  into  an  array 
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Subprogram  Name  Subroutine  Name  Description 


FORMAT 


Formatti ng 


MOVMCH 

MOVECC 

MOVEHA 

HEDSET 

HEDING 

CLKNDT 

DATBCD 


Transfers  several  fields  of 
characters  from  one  array 
to  another 

Packs  or  unpacks  several 
fields  of  characters  from 
one  array  to  another 
Defines  Hollerith  constants 
which  may  be  used  as  FORTRAN 
variables 

Sets  up  to  allow  automatic 
writing  of  headings  on  reports 
Allows  the  automatic  writ- 
ing of  headings  on  reports 
Transfers  the  date  and/or 
time  as  FORTRAN  integers 
Transfers  the  date  as 
Hollerith  characters 


DECM 

CMPAA 

CMPAL 

CMPLL 

CMPKA 

CMPKL 

FINDKA 

FINDKL 


Decision  Making  with 
FORTRAN  Arrays 

Compares  logically  or 
arithmetically  a number  of 
words  of  two  arrays 
Compares  logically  or 
arithmetically  a number  of 
words  of  an  array  and  a list 
Compares  logically  or 
arithmetically  a number  of 
words  of  two  lists 
Determines  if  a word  exists 
in  a number  of  words  of  an 
array 

Determines  if  a v.’urd  exists 
in  a list 

Searches  an  array  for  a one 
word  match 

Searches  a list  for  a one 
word  match 


DATAC 


Data 

Conversion 

BCD21 

Converts  a Hollerith  number 
into  a FORTRAN  integer 
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Subprogram  Name 


RPTGC 


IOC 


; / 

v 


SORTS 


C0MPAT 


’( 


Subroutine  Name 

DECIN 

DECN 

AAADEC 

AADEC 

LEDZER 


RFTFLT 

RPTFIX 


BSFILE 

UNLOAD 

EOFBIN 

EOFILE 

IOPACK 


COPY 


BCDSR~1 
MLSRT J 


EAM 


Description 

Creates  a FORTRAN  integer 
from  a Hollerith  number 
(two  word) 

Creates  a FORTRAN  integer 
from  a Hollerith  number 
(one  word) 

Creates  a signed  Hollerith 
field  from  a FORTRAN  integer 
Creates  a signed,  edited 
Hollerith  field  from  a 
FORTRAN  integer 
Converts  leading  of  a word 
to  blanks 

Report  Generation  and  Control 

Real  variable  report  gener- 
ator control 
Integer  variable  report 
generator  control 

Input/Output  Control 

Backspace  a file 

Rewind  FORTRAN  unit  with 

interlock 

End-of-file,  binary 
End-of-file,  Hollerith 
Blocking  and  buffering 
routine  for  fixed  and 
variable  tape  records 
Copy  a print  file  to  the 
printer 

Sorting  Routines 

Internal  commercial  and 
arithmetic  sort 

Compatibility  of  EAM/EDP 
Equipment 

Creates  a word  containing 
the  positional  representa- 
tion of  the  commercial  se- 
quence of  the  characters  of 
a word 
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Subprogram  Name  Subroutine  Name 

EDP 

CMPEAM 

KMPWL 

KMPWA 

KMPCL 

KMPCA 

KMPWC 

KMPWS 

KMPCC 

KMPCS 

LOGSET 

JC 

JD 

JM 

ENDFIL 

REWIND 


Description 

Restores  the  word  of  the 
EAM  routine 

Compares  two  arrays  for 
commercial  sequence 
Compares  word  fields  in 
two  arrays  for  Field  Data 
sequence 

Compares  word  fields  in 
two  arrays  for  Algebraic 
sequence 

Compares  character  fields 
in  two  arrays  for  Field 
Data  sequence 
Compares  character  fields 
in  two  arrays  for  Algebraic 
sequence 

Compares  word  fields  in  two 
arrays  for  commercial  se- 
quence 

Compares  word  fields  in  two 
arrays  for  scientific  se- 
quence 

Compares  character  fields 
in  two  arrays  for  commercial 
sequence 

Compares  character  fields 
in  two  arrays  for  scientific 
sequence 

Compares  (EAM)  two  strings 
of  Hollerith  characters 
Defines  a FORTRAN  constant 
Divides  one  FORTRAN  constant 
by  another 

Multiplies  one  FORTRAN 
constant  by  another 
Mark  ena-of-file  on  FORTRAN 
unit 

Rewinds  FORTRAN  unit 


REFERENCE 

UNIVAC  1107  BEEF  Data  Processing  Manual » (UP-3985) , (UNIVAC 
Division  of  Sperry  Rand  Corp.,  N.Y.).  Copies  of  this 
manual  are  available  through  the  local  UNIVAC  representative 
or  through  the  EIN  Office  at  the  cost  of  reproduction  and 
mailing . 
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E SAMPLE  INPUT  and  SAMPLE  OUTPUT 

o 

° Sample  Input  and  Output  are  included  in  the  reference  listed 
o under  the  USER  INSTRUCTIONS.  Interested  persons  are  directed 
§ to  this  source. 
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COST  ESTIMATE 

See  reference  listed  in  USER  INSTRUCTIONS. 

Charge  to  user  = computer  time  ♦ postage  and  handling  ♦ network 

overhead 

■ computer  time  ♦ $10.00  ♦ network  overhead 


CONTENTS — BEFFDP 
pages 

1 Identification  § Abstract 

3—  6 User  Instructions 

7 I/O 

9 Cost — Contents 
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DESCRIPTIVE  TITLE  BEEF  Mathematical  Subroutine 


CALLING  NAME  BEEFM 


INSTALLATION  NAME 


AUTHOR ( S ) AND 
AFFI L I AT  ION ( S ) 


LANGUAGE 


University  of  Notre  Dame 
Computation  Center 

UNIVAC  Division  of  Sperry  Rand  Corporation 
Westinghouse  Electric  Corporation 
Baltimore  Defense  and  Space  Center 
Boeing  Corporation 

FORTRAN  IV  and  SLEUTH  II 


COMPUTER  UNIVAC  1107 

PROGRAM  AVAILABILITY  Decks  and  listings  presently  available 

CONTACT  Mrs.  Elizabeth  Hutcheson,  Computer 

Center,  University  of  Notre  Dame, 

Notre  Dame,  Ind.  46556 
Tel.:  (219)  283-7784 

FUNCTIONAL  ABSTRACT 

The  BEEF  mathematical  library  is  a set  of  subroutines  supplied 
by  UNIVAC  to  "enhance  FORTRAN’S  abilities  as  a scientific 
processor.”  This  enrichment  is  in  the  form  of  subroutines 
for  the  evaluation  of  mathematical  functions,  matrix  arithmetic, 
and  other  standard  engineering  requirements. 


See  the  User  Instructions  for  further  information  on  BEEFM. 


REFERENCE 

UNIVAC  1107  BEEF  Math  Routines  Manual  (UP-3984),  UNIVAC  Division 
of  Sperry  Rand  Corporation,  (New  York,  N.Y.,  March  1965). 
Available  through  the  UNIVAC  1107  Librarian,  Systems  Prog. 
Library  Services,  UNIVAC  Div.  of  Sperry  Rand,  Sperry  Rand 
Bldg.,  New  York,  N.Y.  10019. 
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USER  INSTRUCTIONS 


Program  Description 

The  following  subroutines  comprise  the  BEEF  Math  library. 

Name  Description 

ded  solution  of  a set  of  first  order  differential  equations 

The  subroutines  DED,  DEI,  DES  and  DEDIS  solve  a 
system  of  N first-order  ordinary  differential  equa- 
tions having  the  form 

Yi  = fi^  »>^i  » ^2  * yn^ 

The  user  may  select  one  of  the  following  options. 

(a)  a fourth  order  Runge-Kutta  method  with  fixed 
step  size 

(b)  Adams -Moulton  method  with  fixed  step  size 

(c)  Adams -Moulton  method  with  variable  step  size 


LAG  IT 


RAN  DM 


RKVS 


LAGRANGI AN  INTERPOLATION 

This  subroutine  computes  y = f(x)  given  a discrete 
set  of  values  of  x and  y,  using  variable  degree 
Lagrangian  interpolation  by  the  following  formula. 

P (x)  = E L (x)f(x  ) 
n S=1  s s 


where 


and 


for  s - 1 ,2  , * * * ,n 


Y = f(x  ) are  known  for  x . 
s s ^ 


UNIFORM  OR  NORMAL  NUMBER  GENERATOR 

This  subroutine  computes  either  a uniform  or  normally 
distributed  random  number. 


RUNGE-KUTTA  VARIABLE  STEP 

This  subroutine  solves  numerically  a set  of  N 
first-order  differential  equations  (linear  or 
non-linear)  using  a fifth-order  Runge-Kutta 
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Name 


SPLIN 


SETU 


Description 

technique.  Speed  and  accuracy  are  attained  by 
using  a step  size  control.  However,  because  of 
the  necessity  to  make  at  least  twelve  evaluations 
of  each  functional  expression,  complicated  functions 
or  large  sets  of  functions  may  consume  a large 
amount  of  time  particularly  if  the  values  of  the 
dependent  variables  are  desired  at  a number  of 
points  and/or  the  interval  of  integration  is  large. 

SPLINE  INTERPOLATION 

This  set  of  subroutines  fits  a set  of  points  with 
an  interpolating  function  made  up  of  piecewise 
curves  which  act  somewhat  as  an  ideal  spline.  First 
and  second  derivatives  of  the  fitted  curve  are 
continuous  from  interval  to  interval.  The  user 
must  specify  either  the  first  or  the  second  deriva- 
tives (but  not  both)  at  the  end  points.  The  condi- 
tion that  the  second  derivative  be  zero  at  an  end 
means  that  the  end  is  not  held  in  a bent  position. 

GAUSS  QUADRATURE 

This  subroutine  provides  the  abscissa  and  weight 
coefficients  used  in  the  evaluation  of  a definite 
integral  by  Gauss’s  mechanical  quadrature  formula. 
This  formula  differs  from  Simpson’s  Rule  and 
Weddle’s  Rule  in  that  the  subdivisions  are  not 
equidistant  but  are  symmetrically  placed  with 
respect  to  the  midpoint  of  the  interval  of  integra- 
tion . 


COMBES  COMPLEX  BESSEL  FUNCTION  (COMPLEX  ARGUMENT  AND  ORDER) 

This  subroutine  computes  the  Bessel  Functions, 

Ja+n+ib and  Ya±n+ib (x+iy) 

of  complex  order  and  argument.  The  method  used  is 
that  of  Goldstein  and  Thaler.2 

NSIMEQ  SIMULTANEOUS  LINEAR  EQUATION 

The  subroutine  NSIMEQ  solves  the  matrix  equation 
A*X=B  for  the  unknown  matrix  X.  The  subroutine 
NDETRM  computes  a scaled  value  of  the  determinant 
of  the  A matrix. 

ORTHLS  ORTHOGONAL  POLYNOMIAL  LEAST  SQUARES  CURVE  FITTING 

This  subroutine  finds  the  polynomial  P^Cx)  of  degree 
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Name 


GAMMA 


TABF 


BES 


MATAB 


MATRTA 


CINV1 


INV 
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Description 

<K  which  best  approximates,  in  the  least  squares 
sense,  a weighted  set  of  data  points  using  orthogonal 
polynomials.  The  fitted  values  for  a given  set  of 
arguments  and  the  fitted  value  and  derivative  for 
a single  argument  may  also  be  obtained.  The  user 
must  provide  input  and  output  in  source  program. 

GAMMA  FUNCTION 

This  subroutine  calculates  the  value  of 

r (i  + x) . 

SINGLE  INTERPOLATION 

This  subroutine  performs  a K-th  order  interpolation 
(K<6)  on  a table  of  XiYi  values  giving,  for  a given 
value  of  X,  the  corresponding  value  of  Y.  The 
method  of  interpolation  used  by  this  subroutine 
is  Aitken's  method  as  described  in  Ref.  3.  Inde- 
pendent variables  must  be  monotonic  but  need  not 
be  equally  spaced. 

BESSEL  FUNCTION  (REAL  ARGUMENT  AND  ORDER) 

This  subroutine  computes  the  Bessel  functions  for 
real  argument  and  order.  The  method  used  is  that 
of  Goldstein  and  Thaler.2 

MATRIX  ABSTRACTION 

This  subroutine  performs  addition,  subtraction, 
multiplication,  postmultiplication  and  transposition 
of  real  and  complex  matrices . 

MATRIX  ROTATION 

This  subroutine  will  rotate  a 3 X 3 matrix  about 
any  one  of  the  three  orthogonal  axes  through  any 
given  angle. 

MATRIX  INVERSION  AND  DETERMINANT  EVALUATION  OF  COMPLEX 
MATRICES 

This  subroutine  provides  for  inversion  and  determinant 
evaluation  of  general  complex  matrices  or  real  matrices 
compatible  with  existing  real  matrix  subroutine.  The 
matrix  is  inverted  by  a variation  of  the  Gauss  elim- 
ination method. 

MATRIX  INVERSION  AND  DETERMINANT  EVALUATION  (REAL) 

This  subroutine  inverts  an  N X N real  matrix  or 
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Names 


DETIGN 


TBLP 


GDT 


INV1 


CMPXMD 


UDRNRT 


TBLF 


PMTR 


Description 

evaluates  its  determinant.  The  mathematical  tech- 
nique employed  for  matrix  is  a variation  of  the 
Gauss  elimination  method. 

DETERMINANT  AND  NORMALIZED  EIGENVECTORS  OF  A COMPLEX 
MATRIX 

This  subroutine  calculates  the  determinant  and  (if 
desired)  normalized  eigenvectors  of  a complex  matrix. 

SINGLE  LINEAR  INTERPOLATION  LOOK-UP 
This  subroutine  performs  a single  linear  interpola- 
tion. The  interpolation  tables  must  have  previously 
read  into  the  computer.  The  set  of  values  for  the 
independent  variable  must  be  monotonically  increasing. 

SIMULTANEOUS  LINEAR  EQUATIONS  (SINGLE  OR  DOUBLE  PRE- 
CISION) 

This  subroutine  solves  a set  of  N single  or  double 
precision  simultaneous  linear  equations. 

MATRIX  INVERSION  AND  DETERMINANT  EVALUATION  (SINGLE 
OR  DOUBLE  PRECISION) 

This  subroutine  inverts  an  N X N real  matrix  and 
evaluates  its  determinant. 

MULTIPLICATION  AND  DIVISION  OF  COMPLEX  NUMBER  OF 
LARGE  MAGNITUDE 

The  subroutines  COMMPY  and  COMDIV  perform  a complex 
multiplication  and  division  respectively  of  large 
magnitude  numbers . 

UNIFORMLY  DISTRIBUTED  PSEUDO  RANDOM  NUMBER  GENERATOR 
This  subroutine  produces  a set  of  uniformly  dis- 
tributed numbers  on  the  unit  interval. 

PARABOLIC  INTERPOLATION 

Given  paired  values  of  X and  Y,  this  subprogram 
calculates  the  Y value  for  any  particular  value  of 
X,XBAR  within  the  range  of  the  given  X values. 

POLYNOMIAL  MATRIX  TR I ANGU LAR I ZAT I ON  ROUTINE 
This  subroutine  reduces  a given  polynomial  matrix  to 
triangular  form.  The  subroutine  saves  computer  time 
over  the  usual  method  of  determinants  by  treating 
polynomial  elements  individually. 
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Description 

INTEGRATION  WITH  CONTROLLED  ERROR 
This  subroutine  provides  the  numerical  solution  of 
an  N— th  order  system  of  linear  or  non-linear  dif- 
ferential equations  expressed  as  a system  of  N 
first-order  equations. 

FOUR  QUADRANT  ARCTANGENT  SUBROUTINE 

This  subroutine  computes  the  arctangent  of  the  ratio 

of  two  floating  point  numbers. 

DEFINITE  INTEGRAL  EVALUATION 

This  subroutine  computes  the  definite  integral  of 
functions  which  are  not  well  behaved.  Two  estimates 
of  the  value  of  the  integral  are  made,  a parabolic 
approximation,  and  one  using  Simpson’s  Rule.  The 
program  will  vary  the  step  size  to  keep  the  error 
estimated  within  specified  bounds.  In  specifying 
the  minimum  step  size  allowed,  the  user  can  greatly 
determine  the  capabilities  of  the  program  in  handling 
oscillating  or  discontinuous  functions. 

ERROR  AND  NORMAL  FREQUENCY  FUNCTION 
ERF3  consists  of  two  subroutines,  the  error  function 
and  the  normal  frequency  function.4  For  a given 
value,  Y,  the  functions  are  evaluated  using  approxi- 
mations for  the  following  integrals 

Y 6 

erf  (Y)  = Jj-  / e't2  dt  j.  l-(  Z A . Y1 ) " 1 6 
™ 0 “ i=0  1 

F(Y)  - 7^  _{0  e't2/2  dt  2L  jtl  + ERF (Y/  JT)  ] . 
WEGSTEIN  ITERATION  SUBROUTINE 

Given  an  implicit  equation  of  the  form  X * f(X), 
the  subroutine  finds  the  value  for  X which  provides 
a specified  accuracy  in  either  a relative  or  abso- 
lute sense.  The  method  used  is  a modification  of 
iteration  which  determines  the  root  ’ the  explicit 
function  g(X)-0  by  the  iteration  pr.cess 

Xn+1  = Xn  - g(X)/g'(X). 

f(X  1 - x 

Y v n nF1 

An+ 1 = 1-  F 1 
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Name 

BESMMM 


RANNUM 


XLAGIN 


S I M2 


DITTO 


Description 

BESSEL  FUNCTION  EVALUATION 

This  subroutine  will  evaluate  the  Bessel  functions 
for  a given  floating  point  argument.  Calculation 
is  terminated  either  when  the  nth  computed  value 

is  equal  to  the  n— 1 value  or  when  the  n™  computed 
value  is  less  than  the  absolute  value  of  a pre- 
assigned test  number. 

NORMALLY  DISTRIBUTED  PSEUDO-RANDOM  NUMBER  GENERATOR 
This  program  will  produce  a normally-distributed 
random  number  with  a given  mean  and  standard  devi- 
ation . 


LAGRANGE  INTERPOLATION  SUBROUTINE 

Given  a table  of  paired  values  of  X,  Y,  this  program 
computes  a value  of  Y corresponding  to  a specific 
XX  value  within  the  range  of  the  table.  The  Lagrange 
interpolation  formula  is  used. 


n+i 

Y = Z 
k=  i 


Yk  tt 

j/k 


xx-xn 
1 


The  user  must  provide  input  and  output  routines  in 
a source  program.  Data  for  the  table  need  not  be 
in  descending  order  nor  equally  spaced. 


DEFINITE  INTEGRAL  EVALUATION 

This  subroutine  will  compute  the  definite  integral 
of  a function  using  the  maximum  step  size  which 
will  provide  accuracy  within  a given  bound.  The 
program  makes  use  of  Simpson’s  Rule,  computing  and 
comparing  two  successive  terms.  Discontinuous 
functions  or  functions  that  oscillate  rapidly  may 
result  in  incorrect  results. 


f 


SPECIALIZED  DOUBLE  INTEGRAL  EVALUATION 

This  subroutine  will  evaluate  the  special  definite 

integral 

f7yl  g 00  dy/“=y  f(X,Y)dx 

where  g(Y)  and  f(X,Y)  are  defined  by  function  sub- 
programs; yu , yL  and  xu  are  fixed  limits,  and  xL 
is  a variable  limit  equal  to  y.  The  user  may  specify 

continued 
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o 


FRENEL 


FSERIE 


INTEG 


PLOTXX 


f ’ 

6/70 


Deeorip tion 

the  accuracy  desired.  The  basic  method  of  integra- 
tion used  is  a variable-interval  Simpson’s  Rule, 
modified  to  yield  results  two  orders  higher  in 
accuracy  than  the  basic  Simpson’s  Rule. 

FRESNEL  INTEGRATION  ROUTINE 

This  subroutine  evaluates  the  integral 

(2*)“  /* 

for  any  value  X>0.  The  output  of  the  subroutine 
consists  of  the  real  and  imaginary  results  of  the 
integration. 

FRACTION  SERIES  SOLUTION  COMPLEX 

This  subroutine  calculates  the  N complex  eigenvalues 
of  a complex  or  real  matrix,  given  N+l  distinct 
guesses,  Xj,  X2,***,  Xn,  of  the  roots  and  the 
corresponding  N+l  determinants,  DCXj),  D(X2),***, 
DCXn+j).  This  subroutine  may  also  be  used  to  solve 
for  the  roots  of  the  polynomial  F(x).  In  this 
case,  the  guesses  Xi  of  the  roots  replace  the  Xi 
and  F(Xi)  replaces  D(Xi)  for  i«l , 2 , * * * ,n+l . 

SINGLE  Ok  DOUBLE  INTEGRAL  EVALUATION 

This  subroutine  will  evaluate  the  double  definite 

integral 

/dy/f(X,Y)dx 

where  f(X,Y)  and  the  limits  of  integration  are  de- 
fined by  the  user.  The  accuracy  is  also  user- 
specified.  The  basic  method  of  integration  used  is 
a variable- interval  Simpson’s  Rule,  modified  to 
yield  results  two  orders  higher  in  accuracy 
than  the  basic  Simpson’s  Rule.  This  program  was 
designed  primarily  for  functions  which  can  be 
expressed  mathematically,  rather  than  tabulated 
data. 

PLOT  ORDERING  SUBROUTINE 

This  subroutine  will  provide  a graphical  representa- 
tion of  data  stored  in  computer  memory  for  listing 
on  a standard  printer.  A maximum  of  20  curves  may 
be  depicted.  Scaling  is  automatic  and  all  titles 
and  plotting  symbols  may  be  specified  by  the  user. 
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Name 

ROOTS 


Description 

ROOTS  OF  A POLYNOMIAL 

This  subroutine  obtains  approximations  to  the  N 
complex  roots  of  a polynomial  with  complex  coef- 
ficients by  the  Newton-Raphson  method.  The  poly- 
nomial must  be  of  degree  <_  50. 


O 

O 

O 

O 

cn 


Description  of  Input 

For  a complete  description  of  the  options  available  and  the 
usage  conventions  the  user  should  consult  the  reference  cited 
below. 

Control  Cards 
Run  Card 


personnel . 
ASG  Card 

Co lumne 

Contents 

1 

Multipunch  7 and  8 

2-12 

ASG  A=BEEFM 

PLT  Card 

Columns 

Contents 

1 

Multipunch  7 and  8 

2-  6 

PLT,  A 

8-72 

The  user  should  list  the 
he  desires,  separated  by 

**  y 


Note:  The  subprogram  name  appearing  in  the  left  column  of  the 

description  given  in  the  Functional  Abstract  should  be  specified. 
In  this  way,  all  the  subroutines  comprising  a subprogram  will 
be  available. 


FOR  Card 

Columns 

1 

2-  4 


Contents 

Multipunch  7 and  8 
FOR 


10 
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Columns 

Contents 

5 

Blank 

6-10 

User-supplied  job  name 

XQT  Card 

Columns 

Contents 

1 

Multipunch  7 and  8 

1 

Csl 

XQT 

5 

Blank 

6-10 

Job  name  specified  on  FOR  Card 

FIN  Card 

Co lumns 

Contents 

1 

Multipunch  7 and  8 

2—  4 

FIN 

Input  Deck 

Run  Card 
ASG  Card 
PLT  Card 
FOR  Card 

[Program  Deck] 

XQT  Card 

[Data  Cards,  if  any] 

FIN  Card 

REFERENCES 

1.  UNIVAC  1107  BEEF  Math  Routines  Manual  (UP-3984),  UNIVAC 
Division  of  Sperry  Rand  Corporation,  (New  York,  N.Y., 

March  1965).  Available  through  the  UNIVAC  1107  Librarian 
Systems  Prog.  Library  Services,  UNIVAC  Div.  of  Sperry  RanS, 
Sperry  Rand  Bldg.,  New  York,  N.Y.  10019. 

2.  Goldstein,  M. , and  Thaler,  M.R.,  "Recurrence  Techniques  for 
the  Calculation  of  Bessel  Functions,"  MATC  XIII,  1959, 

p.  102. 

3.  Milne,  W.E.,  Numerical  Calculus , (Princeton  University 
Press,  Princeton,  N.J.,  1949). 

4.  Hildebrand,  F.B.,  Introduction  to  Numerical  Analysis  , 
(McGraw-Hill  Book,  Co.,  Inc.,  New  York,  N.Y.,  1956)  p.  3. 
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- RUN  HIDOU.,ZJ1190,3»10 

- ASG  A=BEfFM 

- PLT ♦ A GAMMA 

- FOR  TEST 

C MAIN  MOGRAM  TO  TEST  GAMMA  FUNCTION  ROUTINE 

C 

DIMENSION  X ( 50 ) 

C 

r PROGRAM  INITIALIZATION. 

WRITE  (6.100) 

1 READ  15*101)  N 

READ  (5*102)  milil<liNI 
C 

C CALCULATE  GAMMA  FUNCTION. 

C 

DO  2 I»1,N 
Y*GAMF  A ( X ( I ) ) 

C 

C OUTPUT. 

C 

2 WRITP  (6,103)  X ( I ) * Y 
GO  TO  1 

C 

C FORMAT  STATEMENTS. 

C 

100  FORMAT  U5H1MAIN  PROGRAM  TO  TEST  GAMMA  FUNCTION  ROUTINE.////) 

101  FORMAT  (110) 

102  FORMAT  I F 1 0 • 0 ) 

103  FORMAT  ( 8H  FOR  X = Fl 5 .7 , 10X , 17HGAMMA  FUNCTION  * F15.7//) 

END 

- XOT  TEST 

9 

2.3 

2.0 

1.3 
1.0 
0.0 
C.7 

1.7 

2.7 

2.0 

- FIN 


< 
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EDUCOM 


VAI*  PPOppaP  TC  TFST  PAf'A  p^Lttne. 


rOR 

y 

■ 

2.^GoOOpC 

*AMM 

F||*'CTIPh 

V 

S,AP3«'<7« 

rOR 

V 

■ 

2.00000^0 

F||MfiTlC*M 

«■ 

2.0OO0PC0 

POP 

V 

■ 

1 .^OoCCpO 

A 

F||mCT10»' 

at 

1 . 16*7120 

POR 

V 

c 

i .rcoropo 

*AMM 

hl»'CTlC»i 

r 

1 .OoOOpCO 

POR 

V 

■ 

•rcr oopp 

a*AM*»a 

FlP'CTfT*' 

e 

1 .oo^Opco 

rOR 

V 

■ 

• •70ccc/po 

A 

E U*'0T  IrA' 

*? 

2.qol5*90 

POP 

V 

K 

-1  .70000 rO 

A*AMM 

h^CTK1' 

r 

^ .97  C.  1 

POR 

V 

at 

-2.7OOC0P0 

^AA>  a 

r 

2,51  ’993ft 

ATTFMPTPp  TO  T/>K  F CA’VA  •"UffTfc  OP  “.''OOOf'rw'o.nt 
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SAMPIF  INPUT  (FOR  BES) 


- RUN  HIDOLi *ZJ1190»3»10 

- ASG  A=BEpFM 

- PIT. A BES 

- FOR  TEST 

C BORDER?™  T°  TEST  BtSSEL  FUNCTI0N  SUBROUTINE  FOR  KtAL  AKGUMtN  I 
C 

D I MENS  ION  BJ(250)»BY(250),BI(250)»BK(250)fTX(20) ,TFNU( 20) ♦ IN( 10 ) 

r program  initialization. 

r 


c 

c 

c 


c 

c 

c 


c 

c 

c 


WR 1 TF  (6,100) 

1 READ  (5,110)  NX ,NU,N0N 

READ  (5,111)  (TX(I),  I s 1 , NX ) 

READ  (5,111)  (TFNU(I),  1=1, NU) 

READ  (5,110)  ( IN( I ) , 1*1, NON) 

LOOP  TO  TAKE  ALL  POSSIBLE  VALUE*,,  ONt  F HUM  tALH  lAbLt. 

DO  10  1=1, NX 
DO  in  J=1 ,NU 
DO  10  .<=1  ,NON 
X=TX(I ) 

FNU=tF  NU ( J ) 

N»IN(K ) 

N1  = I AE  S ( N ) +1 

CALI. IF  S SEQUENCE. 


CALI.  F*SY(X,FNU»N,BJ,BY) 
GO  TO  2 

3 CALI.  E ESK  (X,FNU,N,BI  ,BK  ) 
GO  TO  4 

OUTPUT • 


2 WRITE  (6,102) 
WRITE  (6,103) 
WRITE  (6,104) 
GO  TO  3 

4 WRITE  (6,105) 
WRITE  (6,106) 

10  continue 

GO  TO  1 


X,FNU»N 
( B J ( L ) »L=1*N1 ) 

( BY ( L ) ,L«1,N1 ) 

IBIILI,  L«1,N1) 
(BK(L),  L«1,N1) 


format  statements. 


1°°,a?RadJ,1m3mt1?AIN  PR06RAM  to  TEST  BESSEL  FUNCTION  SUBROUTINE  FOR 
1AL  ARGUMENT  AND.  ORDER.////) 

102  FORMAT  (5X2HX»E14.7»5X»3HNU=E14.7»5X»2HN=l5//) 

FORMAT (17HOOUTPUT  FROM  BESJ// ( 5E1 7. 8 ) ) 

FROM  BESY //(5E17.8) ) 

FROM  BESI //(5E17.8) ) 

FROM  BESK//(5E17«8) ) 


103 

104 

105 

106 
110 
111 


FORMAT (17HOOUTPUT 
FORMAT ( 17H0OUTPUT 
FORMAT (17HOOUTPUT 
FORMAT  (1415) 

(4F15.0) 


XQT 

8 


FIN 


FORMAT 

END 

TEST 

1 


-9 


2.404826 


6. 

3.957678 


7.015587 
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SAMPLE  OUTPUT  (FROM  BES) 


•'Mis  PFOpP/>P  TC  TE.ST 

pFrctU  pL**r*TPN 

eURPOUTlMF  FOp 

P>  ’.L  APGOMENT  ANP 

ORPEP* 

,70occto+oi 

Ml*  %''n''orrij 

0 

OUTH'T  FpC V PF  SJ 

-.2600*  1 0"-Or 
,U3O'»Pc^"-0  J 

,33pOFt''7-rp 
. 1 1 ■»939,”-r  « 

•U"609l7P-0P 
• 3*4729/16-0? 

.70906773-00 
•49344  i 81-o3 

. 13207419-00 
,«43o*030-04 

PUTP"T  Fpr»  PFSV 

,376p*rO“-CO  .??',674'»P-or 

-.  190P0»'Pp+Cl  + o • 

- • t^04O0'lU-0P 

- • 1 rfl3997u+02 

-•  *3854 1 63-00 
.•o7l49«884-n2 

-.91868281-00 

444o*947+03 

PUTP"T  Fpr»-  PFF! 

.2430<-io?--CC. 

,45‘loor.7«.C2 

• XC''9c>b«*-r'* 

• 1 1 178256+00 

• S',265,'*2— 03 

•47783725-01 
•4051 1P60-O4 

. I62l«908-01 
, 65^04643-09 

PUTH'T  Fpr>  pF5 K 

.697"’^  i e*’-CP 

v»  .7000000+01 

• 1 al547o*+Ot 
9f  Ff>2fiyrs')4r*0'  • 

NU»  .''OOO^O  Ntt 

• *»4538«73+Ol 

• ,4434«944-o4 
-9 

.61471850+01 

,799+7146+04 

pOTh 1 'T  FTr  r E5>  J 



-. 2600*5  i9*-CC 
-.430*’»>/!Up-Cl 

-•.Vr'05br'*7-'*'' 

•4P60912P-0O 
- Oe473r>40-0? 

-• 70906774-00 
•49387P03-O3 

. 1320*420-00 
-.A66??138-04 

OUTH'T  Frr»  PF 5V 

.376pcrr*,-cc 
. |90R9»'5P  + C1 

•••J|i*647*l4r  < 

-M*0406«4-00 
• 1 Ofi3997il+o2 

• 73854 1 63-00 
-•  *7  t49«88+o2 

-.9l6fP281-00 

,444o«947+03 

OllTPI'T  Fpr».  rFF  T 

.24300o3’’-CC 
. 454^q  ,o-»-0? 

• 1 1 17825*+0P 

• ?*»289t  14-03 

•47783726-01 

•793l3«78-n4 

. 16215903-01 
.1327*598-04 

PUTH'T  FpP|i  r F SK 

.69'  'A  | F',-CC 
. jeF’e^p’+C? 

Ve  ./•OOCOrO+Oi 

.Pr^563’P-rp  •t73547o*+nt 

,frp2P7p74o*‘  • 9n4550P’’+03 

iJll*  ,POOorpt>  F’« 

• «»4538«73+0l 

• )4434o94+04 

0 

.61431850+01 

.799*3146+04 

/'0TM,T  Fpci  pEFJ 

-.3971  UOP7-CO 
. 132PP666-00 

-.f  f p'433‘'P-r« 
.H9p675,'P-p  i 

•3*412816-00 

•1*176^0-01 

• u30 17 148-00 
• /I0286A78-02 

.28113907-00 
.938fQl 85-03 

pUTPi'T  Fpr».  PFSV 

-.16940730-01 
-. 795*5 lUO-pp 

.?9-’925,'C-oo 

-*lfO0<9i74M 

•2i59o3*p-oo 

-•r’06227p+m 

-•  18202712-O0 
-•  ( 1471092+02 

-.48607676-00 
-.42 1*8 143+02 

pUTP"T  FpO  PES I 

.2C7or  i9»'-cr. 
.92443*00-03 

. 1707*0*6-00 

,2n*'912  1 P-o“ 

. t i762<>e?+oo 
•7p69847O-03 

•^1124745-01 
. i7967«n-o3 

.2*970997-01 

.38284929-04 

oontinued 
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LO 

( ,'UTH,T  Fp0.'  PFSK 
.609?Q-6'*-Cr' 

,tr  1 57£>r./l-rp 

• 0r0C85e;«-on 

• 1 6i  16*  m+oi 

• 339— C776+01 

O 

•842*Pl**+<) 

• ?*."646«  p + r* 

•Q 1 820*  7*4-07 

• ••1083696+03 

.132*1685+04 

o 

.er^rcrc +ci 

M»«  f'rn 

-0 

000 

'■'OTH’T  Frr"  PESJ 
-• 397 1 ucF"-C'0 

• «*< *433*f-r « 

•3'412&1*-0n 

-•”3017 148-00 

. 20  1 1 ?9()7-00 

iW'Pft'-CC 

. - • 1 * 1 76,:*9-Pt 

•”0?86”26-o2 

970*0866-03 

PUTH'T  Fp0r  rFfV 
— • 1 6*9^1  r*»7^—c  J 

• ? • 590?*P-0f 

• i 82^2912-00 

-.400*7676-00 

.79SP* iur-Co 

• 37f!62?7e+ni 

-•  1 1«71p92+02 

.4217*143+02 

''UTH'T  Fpr»'  * FS  J 
.2C70ni°',-Cf! 

• l*»*7*0"*-r* 

• 1 17626*51+00 

•*1  l29+(45-ol 

• ??9-p996-0l 

,92403r?«-P? 

•7p70O7«(«.-O3 

• i 7958*»39_„j 

. 306*0  969-04 

''UTH'T  Fpr*-  PFFK 

• fr* « b7b*U-''* 

• C«=0085*5b-00 

• 1 6316*14+01 

.3397*776+01 

.842*Pi6*+0l 

• ?/i  ''646<p4^-* 

•Ol 020679+0? 

•*1083696+03 

. 132* «6e5+04 

v«  .*POf!0P0+0l 

OUTH  'T  FO(>  PESJ 
. 150'4*?o-C0 

M'b  ,pOOu'*rU  fm 

.27*683  "«-rp  -•94287397-00 

o 

• 1 1476P37+O0 

. 357*  /•  1 59-00 

• 362p'P*,Pp_0O 

• ?0*8?6«7-*‘*' 

• 1 *95A'**-0* 

•*6931*96-01 

.91  1**325-01 

''UTH’T  F«*r»-  *F$Y 
-.208i9o6p-or 

• 17eUlO+ 1 -r" 

•?’9857o7-00 

•32824*93-00 

,90300996-01 

-.  197O6o97-C0 

,4?*fi25"7.p'' 

-•Ae659r.a?-oo 

-'  1052)94+01 

-.929**607+01 

PUTM'T  FPfV  rF£  I 
. 166*  5-5P-00 

. lp*’051pe-^p 

• ! 1*597*M+O0 

•-4736767-01 

. 4 1 2+-923-0 1 

. 197*lp7o-Cl 

.03  J6l3pp-P*’ 

• VI  55°^r-n2 

• 10484?88-O2 

• 3 19-P04 1-03 

'•UTH'T  F»0  FESK 
.501'A+1*-00 

.5«  + 175*>P-rp 

•6*258*71-00 

•09723*06-00 

. t«7eP223+01 

.323'9r7i+ci 

,7r*»«ei**++o« 

• 1 710667  t+f>2 

• (176*13*23+02 

. 144o-'628+03 

v«  .*CO0C00+01 

PUTH'T  FFCM  rfsj 

. 15064*20-00 

NUb  .pOP0prO  fa 

.?7'6P3*,3-Op  -•?»'2B739'-0n 

— 0 

-• i 1476«37+O0 

.357*0 160-00 

-.3620.0700-00 

,20*B36pP-Pp 

- • | 9958667-qo 

•*6532010-01 

". ?1 16*356-01 

OUTPUT  FPPf  FFSY 
-.2fiB|9u6F-00 

. n^OlCM-P' 

•?79B57o2-ftO 

-•72824*93-00 

,903oo99*»oi 

. 19706o9*-00 

•.4?*8?5«7-rp 

6*65908?-00 

-• 1 1032194+01 

,?29o* 607+01 

FUTH'T  FOOl  FES I 
• 166657?*' -CO 

. 15’C5i*«-Fp 

• 1 1597?69+0P 

•-473S768-01 

.41277921-01 

. i97«ip.7*'-0l 

.PMBl3*7-r>7 

•31  1560o»r-02 

• 10483768-02 

. 3 l9o7fl  J2-03 

PUTH'T  FP()m  rfSK 
. SOI  PA?  1 '•-00 

.5«*’175’'f-rp 

•6^258?? 1-00 

• O9723/IC6-O0 

,107op?2i+Ol 

.32369e71+01 

.7f*»«B1-'+(V 

• |73866m+02 

•*7643623+02 

.14407628+03 

*b  .7000000+01 

NUb  ,pO00Ff«  f'B 

9 

r ' 
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000  0054 


*UTH'T  Frcfi  rftj 


,3C  O*7r2*-0* 
. 347p0/'  + + -C* 

, i -rA 

- • nA  i<u7?r>~oA 

-• i6756*fe0-nC 
• i 27<57r54-nC 

. 157’*fpl,-00 
,889*rei+-oi 

''UTH'T  Fro,.  PF5V 

-•259/'073"-t  1 
• 637*22?r-C  1 

• ?f 

-•6A*26^U'-ni 

-•uA537ln?-nr> 

• i6P0b*6O-n0 
-•<1  l43«*?4-n0 

, 290+*O9"-00 
-.992|*823-00 

PUTH'T  F**.  PF5  I 

• 153*3rl‘,-00 
.2461  6/'5*-Cl 

• 1 t h b6(> » c-r  « 

• i i 306:*Q*+or' 

• a°26l fl  t «-n* 

•776701 b5-nl 
• ' 8337+22-*2 

.465^^817-01 
. 634** *'376-03 

''UTH'T  F^rr  pFEK 

.23 6°9/:*  i +01 
v»  ,-O*C0C0+01 

./it  •*ufiV'c,pr 
./i*,«7)3'r4r  t 

MJ*  . *0^0 

• * ^8 

• i Aai>5'1  *A+o;> 

ao^  *■■ 

•*4838+87-00 
• <*56?8<*57+*2 

-0 

. l 33<**+67+01 
• 690++P75+02 

PUTH'T  l-pC*<  rES  J 

.3COO7*2p-0C' 

-.347**,3*’-0n 

.fci' 

. i -r^ 

• i6755K60-n0 

• i 2797*52-*0 

. l57^pfll1'-00 
-,8e9<**491-01 

*UTH'T  F**r  pESY 

-.2594973"-Cl 

-.637<’'2«<2P-01  Kr'30o~c-.r'' 

-•6A5i6*P'-Ot 
•un«537  1^-00 

-.<*6P08*60-O0 

-•*1 143c24-n0 

• 290+*99°-00 
.992**823-00 

*UTP"T  Fp*.  PFE  J 

. 153*3*17-00 
• 245  1 6/'4p-C‘l 

• 1 1 H8f>G*  1 - A » 

• t « 3CB?A*4<0A 

• Un76  J 

•■*7670  i 65-nl 
• < 83,7*49-ri2 

. 4650*519-01 
• 634*6  530-03 

"LiTH'T  Fp*><  PF£K 

• 46  5P4**r-CC 
.236po/'P'  +0} 
v«  .****000+01 

..**  A0f9*c-r A 

.417  t 7 1 3'  n + ^ • • 1 au5*^.*0+a? 

Nils  .',ofiorro  >*■ 

•P4538+87-*0 

.<*S6?8*Sj7+*2 

0 

.133**767+01 
, 6,90++B7b+02 

I 


o 

o 

o 

o 

o 

On 

4^ 


ERLC 


*UTM'T  FpC*'  PF5J 


. l7165*7p-00 

.P3''63  C+?-r* 

-•11  299171  + 00 

-.<*91 13218-*0 

1C5  + P742+00 

. 1 85*7/i*6  -CO 

.37*575*7-** 

•72*5890*-** 

• <*23u5496-*0 

. 1 26+2088^00 

*UTF"T  FTf  pFfY 

•223r?i4p-Cr 

. lPP06Gp1-r* 

-•2*303<>62-0* 

• 7ft542 1 9fl-*l 

.282«/i326-00 

.256/'*.  *6  -oc, 

.37p5PO*P-* • 

-•2**06397-00 

- • +4767*G0-*C 

-.5752*605-00 

9UTM'T  FP0»<  PESI 

. 14343  l7"»-00 

• 1 3*4  14  244  — 0* 

• 1*9896)2+00 

.*9194  + 86-0)1 

• 505**330-01 

.286ouo56-oi 

.IF  *327* 1 -0 1 

•6*449195-02 

• <*fl29 1 BQ5-*2 

. lC86«986-02 

"UTH'T  Fp*r  PESK 

• 436F2+0,,-0C 

• 46*149*'  1-0* 

•5B241*7p-o* 

•73935460-00 

. 1 106*263+01 

. lP46?r**+0l 

v«  .***00*0+01 

.34  1477-il  + O ' .6«68447*+01 

Nile  .*000**0  !"■ 

• t 5609r60+o2 

■Q 

• 18 lp*566+0J 

continued 
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LO 

o 

o 

o 

o 

o 


I 


* 


''bTH'T  fpo.  r F r I 


• i7’-Cf:  . 1 ’<■  10  c »'l'-o  + 

• t *9896 1 ^+*0 

• pf  ftOflo^'-C  t .H'327#7-*l 

♦ 1 •*>  1-0? 

ObTM'T  Fpo»  rfFK 

,tit  +149n1-o+ 

• *5  *2*4  1 

. iP4*7rOp+0|  . +r  i <*'T7",»i 4 o • 

• Ar'*tUf,vr'+r>  i 

vB  ,-iioat  2‘‘+Cl  M'=  .ono0o 

ro  ^ s 

''OTH'T  F^Cf*  rF  Sj 

-.2397  1 •’01-0 

• 4**  l75*l«*-00 

. J63rq«K--ri 

• :*/iA4f  i -rA 

• *^r6Af;  i n-n*! 

OUTM'T  FT,  rf:c v 

.5C9o?(.3/_0r 

- •u''*4ij73'*p-or' 

-.  449  tqfl  «•  + ('] 

, l7AG*f,<*  t *cm 

-•flA764f  P^+r>? 

rUTFl  'T  Fr^r  rrr  I 

.27#.05rrr-t( 

.7C'jco‘ 

• ir29sS^’’+nr 

•2?9#* 

,U(  "6P9+--0+ 

•7"P5o3r (-04 

r0TF 1 'T  Fop.  r F SK 

.773'po5''-CC 

• »778**P-r^ 

• i r399ft77+o| 

.37*15*50+02 

•p#7ooc7++o+ 

V*  . +4+4 1-26+01 

MJ»  .An*t, 

'V0  • •» 

''UT»-"T  Fpr.-  pF £ J 

-.239-t-Pt-tft 

-.51*14701-0* 

• I75^o^-0^ 

-.  163p9f»l'>-fJ 

.34*475++-** 

''UTM'T  E*r>  t^rSY 

. 509*203' -CO 

1 r A74fc,*C4** 

- •U-'a473^f'-00 

,ua9i«ri'-+r] 

- • 1 7A85t)^  1 4*A 

• *A764r  QA+o;> 

*0TH'T  F*0»'  PF5I 

.?76*'C/>r'--(:r 

• 1*2983*7+00 

.239#* i ir-c? 

•7-257070-04 

*UT1-  1 'T  F"0»-  r‘F£k 

.773'0o5o_ec 

.92 ,77e>'»P-r'' 

• 1e399fi'»7+ni 

.37515*50+0? 

.If  #231*1+*’ 

•4*700<  ’”+03 

v=  , +9p7f 78+01 

r.u-  .*1 

*UTH'T  Frci'  pE£J 

-.399'0+P'-C0 

-.45-970 «e-r ' 

• 3-443790-00 

.127+l-5*-C0 

.Jif#553#e-r' 

• 1 11 2453'--0 1 

^OTP1  'T  F^fiF  rF SY 

. 158-25*0-06 

.«r-i >42-r-r* 

•203423^1-00 

-.Bl7fpr?/'-0n 

-. l*'433-*+oi 

-•3O?540O0+oi 

*UTM'T  FPOm/FST 

.20B3Op3r-0C 

. 17"444**-P* 

• 1 1752&04+00 

•90273+9*-02 

. 27+791+7. n+ 

•70B7532P-01 

OUTH'T  '"Of  rFSK 

.6l2'7*9'-0r 

.6Pe7*5tr.p* 

•9rB929iP-ftO 

.B66ll9i«#  +01 

»?r ’6 1 fe’  + + ** 

•»B5640HB+02 

Ym  , +0*’7676+01  MJ*  .ooOQOpO  M« 


000  0054 


. 5CS**33C-0l 

. lcefrB06-02 

•*39’*5t'bC-rQ 

. 1 lC#p263+0l 

• 1 86°^rt04  r>2 
0 

. 38 1TPB66+02 

• i9P99of,9_no 

. ft 47c  * 709-01 

•*2l65o2p-n4 

. 1 25 1 -792-04 

-•«0P7B+46-p0 

-.  i«9  + (<277+01 

-•iiS309r7o+r>3 

-,293+r 1 1++04 

.+7095*57-01 

• t 1 474+23-04 

. 1«0oo«21-05 

• +4fl3 1/IC7+01 

. IC2  + o78«  + 02 

• "2 1 36+ 1 6+o4 

• 3*5*  C737+05 

0 

-•  19699099-00 

,647i'#704-0l 

•+03 12+38-04 

-.513+0970-06 

•«'0B7H'  46-00 

-.  1 59  + 4277+01 

-.<>5309*70+03 

. 79 3 + e j lft  + 04 

•+7095*55-01 

. lC4*’Oft4C-oj 

• 150‘J1’>65-04 

-.726?oi 19-04 

• +4031/IC7+O1 

. 1C2.+O284+02 

• *2l156+i6+o4 

.355+4732+05 

9 

• 42823  + 4 l-oO 

,271*7+947-00 

•+7364+90-02 

.Bft0cO554-03 

-•19694+85-00 

-.5Cloo83ft-Q0 

..•  i?321«1++o2 

-,458r-ft90+02 

•*0668+71-01 

.255117874-01 

• 17061404-03 

• 359oo 171+04 

• 1 65t*9«86+Ol 

, 346-F985+01 

• +2B03o45+o3 

• 14  1 J "495+04 

continued 
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FT*-  r F S J 


30060-06  -<x 

, i\e  *W7C  « r>  1 

• *!^’4437?o-C^ 

_.m?b?3p41-p0 

,274-0947-00 

-. 1 ?7- 1 -r '-co 

, u t 

- • 1 1 

• 77364721-^2 

-,860?'O68-O3 

OUTH'T  ft*  r F f V 

. |f8-7r*r-ff. 

,Cr 

• 1-0  ^ 

• «96947f,5-rc 

-,5C  lrP836-00 

,8l77f)rr/'-Cr 

# l*  < 

-•  1 2721*13+02 

,u«tsp769n+02 

OUTH'T  FT*  r F S I 

.2CB',Cr.7r_(T 

• 1 

• 1 1 752*104  + 0'' 

•606^8-71-01 

,255l'7673-0l 

,9C?"7»1 1-C? 

t - r* 

• 7-677.'  ) 1-03 

• 1 7054  t78-n3 

,76?ir )4?-04 

^UTh 1 *T  rrC*  r F .c K 

.6l2,7c«'7_cr 

• tf  r7*b1P-''r 

•QFfl929»  p-00 

• ♦ *549/ifc^  + nl 

, 346-0986+01 

.ftftooo  1 «*♦(*! 

• Pr«564*,«F+0? 

• -*pflC3o4H  + r\3 

. 1 4 1 1 7495  + 04 

ve  .7p »?! 87+01 

U’cs 

oo^ru  »'o 

0 

-UTF  "T  FT*  rF5 J 

• 3CO 1 1*76-00 
• 34  6I'6  74*-O0 

.10*7  *!>*?-r* 

- •t*oii*",,,-op 

O*«*8?7oi  -or 

-•  i7lU  *60-n0 
• ♦ 26^3*01-00 

OUTH'T  FT*'  *FSY 

-.2l2’47U6-fti 

.675',9r67-t  1 

,?r + 
. lFf*6  iu.-p-r'* 

•*6532*SO-nO 

.•/np)^flna2-oo 

OUTH’T  Fro*  rpry 

. i53B6orr-or. 
,24506-3*-Cl 

• H *1*  1 1'C-T* 

• 1 1 r 3 r ti ' i-n 

• 1 1 303S*r+OO 

• 14**47401-02 

• ■*7703  1 67-nl 

• 1 8477*50-n2 

riiTH'T  Fro*-  TSK 

.465747*r_c( 

. ,'35°7*3“+C  J 
V.  ,-015f P7+C1 

%lit  •%63r7-r'"  *6*7166? *-00 

•46*LB3r?4*  t • 1 *3ep3?*+op 

r.n*  ,*ooo*r<J  *!» 

• *43*^44-00 

• *5409*40+n2 

-Q 

. 1537-262-00 
,597-0  160-01 


.29  lr-723-00 
“.08le»i2«-00 


,<465rrflJ  l-Ol 
,64C-*830-03 


. 13206749+01 
.683- 1774+02 


^UTM IT  FTf  rFSj 
‘ .30011*76-00 

rUTF-'T  FT*<  be*y 

-.21274341'  -Cl 
-.675o9o57-01 

OUTH'T  FPf>>  i"FSI 

. lS3r(‘pO<'-Cr 
.P45T  ?3--Gl 

,*UTP"T  FT*-  PF.SK 

•465’4757-OC 

.?35P7r37+ci 


-.l?,,'76£p-7-06 

.3i.''075r*-o'' 


.?r‘,362''7-P'> 

-•lo*611h-2-o'' 


.Ul-lSlT-or 
.1 1'r356',7-p' 


,4P*»4ft3r7-'>'> 

,W6O0P3*P40) 


-•l^OllS^’-OO 

-•?'»32?7Pt-nn 


-•6''9628t-01 
• 4'*21626r-or 


• 1 l 3035Pe+00 
•4"547566-02 


• 607  l602*-00 

• 1 0382320+02 


• 17111'80-nO 
• i 2933*02-00 


-•76532790-00 

-•60658pu2-o0 


•77703)67-01 
• IB477 162-02 


•04364)44-00 

• 75409740+0*' 


. 1837-262-00 
-.49770182-01 


. 29  lo*’723-00 
.9fl  to’ 124—00 


,465rO810-01 

.64070878-03 


• 13206749+01 
.6837)774+02 


tYECL>TIOFJ  TrP‘ ItATLO  *v  •*'  AT-FT*  To  FtA"  THru  FMt>  Cf-Oa-A. 
A°0VE  FAUI  T A*  IFTEFMI  fOIIE'OP  MJHRPF  OOlo*  T F‘  -Fs’ 
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o 

r 

fc> 


L 


Test  programs  for  real  matrix  addition  and  subtraction. 


c 

C 

C 

c 

c 

c 


c 

c 


c 


c 

c 

c 


c 

c 

c 


RUN  HIDOLL,ZJU90»3*10 
ASG  AsBEFFM 
PLT  » A MATAB 
FOR  TEST? 

MAIN  PROGRAM  TO  TEST  1107  MATRIX  PACKAGE  - REAL  MATRIX  ADDITION 
AND  SL3TRACTION.  SET  J*1  FOR  ADDITION  J=0  FOR  SUBTRACTION, 

DIMENSION  A(64) ,B(64) »C(64) 

program  INITIALIZATION, 

WRITE  (6,100) 

1 READ  (5,101)  J,L,M,N 
N1  ■ L PM 

READ  (5,102)  (A(I)*I»1*N1) 

READ  (5,102)  (B( I ) ,I*1,N1 ) 

IF  (j.sQ.0)  GO  TO  2 

CALI.  P KA(A,B,C,M,N) 

GO  To  3 

2 CALI.  * XS(A,B,C,M,N) 

GO  TO  4 

OUTPUT • 

3 WRITF  (6,103)  (C(I) ,I=1,N1) 

GO  TO  1 

4 WRITE  (6,104)  <C(I) *I»1*N1) 

FORMAT  STATEMENTS, 

100  format  (59M1KMN  PROGRAM  TO  TEST  REAL  MATRIX  ADDITION  AND  SUBTRACT 
1ION.////) 

101  FORMAT  UI5) 

102  FORMAT<F10.0) 

103  FORMAT ( //36H  MATRIX  C FOR  REAL  ADDITION  ROUT  I NE . // ( 1H  E20i8M 

104  FORMAT ( //39H  MATRIX  C FOR  REAL  SUBTRACTION  ROUT  I NE . / / ( 1H  E20.8M 
END 

XQT  TEST3 

13  3 3 

2 • 

3. 

4. 

1. 

4. 

1 • 

2 • 

1» 

4* 

1. 

2. 

0 • 

3. 

7. 

2. 

1* 

8. 

5. 

0 3 3 3 

2 • 

3. 

4 • 

1* 

4* 

1* 

2. 

1. 
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2« 

0. 

3* 

7« 

2« 

It 

8. 

8. 

FIN 


n 
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SAMPLE  GUTPUT  (FROM  MATAB) 

Test  program  for  real  matrix  addition  and  subtraction. 


r 

k “AIN  PROPRAP  TC  TEST  REAI  MATRIX  ADD»TlO*'  ANP  SUBTpArTjOM, 


> 


“ATRIX  C PPR  REAL  ADMTJPN  R^l.’TT'F.  • 

.100<'0000*01 

.ROPPOOOO*01 

.uoppccoo+oi 

.UO'V'CCOO+Ol 
.1  | 0*0000*02 
.700*0000*01 

.700*0000*01 

,QO**0000*01 

.Q00*0000*01 


"ATRTX  c FTP  REAL  SUpTRAOTIO*1  Rrt'TJN*. 

. I 00*0000*01 
.100*0000*01 
,«00*0000*01 
-,?noooooo*oi 

-.70000000*01 

«.ioooeooo*oi 

.10**0000*01 

-.70**0000*01 

-.10**0000*01 
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SAMPLE  INPUT  (FOR  MATAB) 

Test  program  for  real  matrix  multiplication. 

-RUN  H100LL tZJ119Q#3*iO 

- ASG  A*BE EF * 

- PLTtA  MAT/  3 

- FOR  TESTA 

MAIN  MOGRAM  TO  TEST  1107  MATRIX  PACKAGE  - REAL  MATRIX  MULT  I PLI  CAT 
I0Nt 


DIMENSION  AI3#3)#B(3#3) #C(3#3) 

PROGR/ <1  INITIALIZATION# 

WRITE  I 6t 100 ) 

1 READ  < 5f 101)  Mf  Nf  L 

READ  ( 5 1 102 ) ( ( A ( I f J ) t J* 1 tL ) • I *1 # M ) 

READ  ( 5 • 10? ) ( (B( I # J) i J»1 tN) # I =1 # L ) 

CALI.  MXM  (AtB#CtM#N#L) 

OUTPUT# 

WRITE  (6tl03)  ( UtJtCU  tJ)*J=l#N)  #I«1*M) 
GO  TO  1 


C FORMAT  STATEMENTS. 

C 

100  FORMAT (A9H1MAIN  PROGRAM  TO  TEST  REAL  MATRIX  MULTIPLICATION#////) 

101  FORMAT  1315) 

102  FORMAT ( Fl 0# 0 ) 

103  FORMAT ( AX2H  I#3X2H  J#8X7H  C(ItJ)//(lH  2l5»E20t8)) 

PND 

- XOT  TESTA 

3 3 3 

3 
2 
2 
A 
3 
0 
5 
0 
5 
1 
1 
1 
1 
1 
1 
1 
1 
1 
3 

3 
2 
2 
A 
3 
0 
5 
0 
5 
2 
2 
2 
2 
2 
2 
2 
2 
? 

- FIN 
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SAMPLE  OUTPUT  (FOR  MATAB) 

Test  program  for  real  matrix  multiplication. 


"AIN  PROGRAM  TC  TEST  PEAt  MATRIX  MUL* T^L TCATlON# 


Cf  Itji 


i 

i 

i 

7 

o 

o 

* 

% 

* 

T 


1 

7 

5 

1 

7 

5 

1 

7 

J 


•7*0000004* 1 
•7*000*0*4*1 
•7*000*004* i 
•1*000*004*1 
•1*00**004*1 
•1*000*004*1 
•1*00*0004*0 
•1*00**004*0 
•1*00**004*0 
CfliJi 


1 

1 

1 

0 

7 

7 

* 


1 

7 

1 

0 

5 

1 

7 

5 


• 1**000*004*0 

• 1**00**004*0 

• 1**000*004*0 
•2*000*004*1 
•2*000*004*1 
•2*000*004*1 
•2*0C0*O04*o 
•2*^0*0004*0 
•2*000*004*0 


EVECiriCN  TERMINATE*  *Y  AN  AT^rMP*  TO  R&A*  TH*IJ  ENO-CP-oAta # 
A»OVE  FAUl T A*  INTFFNM  «rCUE*TE  MJMRp»  001*5  IN  tfStU 


O 

o 

o 

o 
o 
c n 
4^ 
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SAMPLE  INPUT  (FOR  MATAB) 

Test  program  for  complex  matrix  postmultiplication. 


000  0054 


r 

0 


\ 


f 

L 

f 

i 

! 

> 

r 

I 


- RUN  HIOOLI *ZJ1190*3*10 

- ASG  A=BEFFM 

- PLT.A  MAT/ 3 

- FOR  TEST 

C MAIN  PORGRAM  TO  TEST  1107  MATRIX  PACKAGE  - COMPLEX  MATRIX  POSTMULT 
C IPLIC/TION. 

C 

DIMENSION  A ( 2 * 3 * 3 ) * B(2»3)*  C { 2 • 3 * 3 ) 

C 

C PROGR/M  INITIALIZATION. 

C 

WRITe  (6,100) 

1 READ  *5,101)  M ? N 

READ  (5*102)  ( (A(1,I, J) ,A(2»I ,J) ,J=1»N) ,I»1,M) 

READ  (5*102)  (B(1»I)*B(2*I)*I=1*N) 

C 

CALI.  C MXMD(A*BtC*M*N) 

C 

C OUTPUT • 

WRITE  (6.103)  ( ( I .J.Cll.I *J) *C(2. I *J) *J=1*N) .lal.M) 

GO  TO  1 
C 

C format  statements. 

100  FORMAT (56H1MAIN  PROGRAM  TO  TEST  COMPLEX  MATRIX  POSTMULT  I PL  I CATI ON. 
1////) 

101  FORMAT (215) 

102  FORMAT ( 2F10.0) 

103  FORMAT  (25H  POSTMULTIPLICATION  OF  A.//4X2H  I.3X2H  J.18X7H  A ( I * J ) // 
1 (1H  2I5.2E20.8)) 

END 

- XQT  TEST 

3 3 

2*  1. 

2.  1. 

3.  1. 

4.  1 . 

5 * 1 . 


6 • 

1. 

7. 

1. 

6» 

1. 

9. 

1. 

2- 

1# 

2 • 

1. 

2- 

1. 

3 

1. 

1. 

2 • 

2. 

3. 

3. 

4 • 

t** 

5* 

5 0 

6* 

6 • 

7. 

7« 

8. 

8. 

9* 

9. 

2 • 

2 • 

1. 

1. 

o. 

0. 

- FIN 


c 
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SAMPLE  OUTPUT  (FROM  MATAB) 

Test  program  for  complex  matrix  postmultiplication. 


MAJN  PROfR/iP  TO  TEST  TCPPLEX  FATr  IX  '•c  &TMULTtnl- I C.  AT  I CM, 


°OSTMULTTPl  J*ATION  O'-  A. 


T J 


A ( T » J ) 


! 

1 

,3*cor*oo+*i 

1 

p 

»3*ro**oo+*i 

J 

.5*rc**o*+*i 

P 

1 

#7*ro**o*+*i 

P 

p 

.9*ro**o*+*i 

P 

. l •roc*o*+*7 

r 

1 

,l-rOr*CiO+*7 

r 

p 

. lo*Or*oo+*2 

r 

• 1«p<Jo*994*? 

"0STMULTIPLIOATI0N 

0*  A. 

• <J*0000*0+01 

• <JOOCO**0+Ot 
•P*000**0+01 
•**0000*0+01 
•700000*0+01 
• A*000**0+0t 

•q*oooo*o+oi 

•100000*0+02 

• 1 1000**0+02 


T J 


A ( T * Jl 


1 1 -.0*000*00 

t 2 -.0*000*00 

1 * -.0*000*00 

7 1 -.0*000*0* 

7 2 -.0*o00*00 

7 * -.0*00**00 

7 t -.0**00*00 

7 2 -.0*000*0* 

* T -.0*000*00 


•«*0000*0+01 
• <1*0000***01 
•000000*0 
•1*000**0+02 
• 1 *0000*0+02 
•00000**0 
•7*0990*0+02 
•1*000**0+02 
•r*oooo*o 


EVECU7I0N  TERMINATED  *v  AT+PPp+  TO  Ptan  THPll  FMD-OF-nATA, 
&"OVF  FAUIT  At-  INTERNAL  SPOUEM*E  AUPBr»  001*«  TN  ttS» 
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SAMPLE  INPUT  (FOR  MATAB ) 

Test  program  for  complex  matrix  transpose. 


c 


c 

c 

c 

c 

c 

c 


RUN  HIDOLI  *ZJ1 190*3*10 
ASG  A=BEFF  A 
PLT ♦ A MAT/ 3 
FOR  TEST 

MAIN  PROGRAM  TO  TEST  1107  MATRIX  PACKAGE  - COMPLEX  MATRIX  TRANSPOS 

E. 

DIMENSION  A(2*5*3)*C(2*3*5) 

PROGRAM  INITIALIZATION# 


WR I TP  (6*100) 

1 READ  (5*101)  M»  N 

READ  (5*102)  ( ( A ( 1 * I ♦ J) ♦ A ( 2 ♦ I * J) *J  = 1*N ) *1  = 1 *M) 

- CALI.  CMXT  ( A *C  *M  *N ) 

OUTPUT. 

WRITE  (6.103)  ((I  ,J*C(1*I ♦ J) *C(2. 1 *J) *J  = 1*N) *1=1. M) 

GO  TO  l 

FORMAT  STATEMENTS. 

100  FORMAT  (47H1MAIN  PROGRAM  TO  TEST  COMPLEX  MATRIX  TRANSPOSE.////) 

101  FORMAT  (215) 

102  FORMAT  (2F10.0) 

103  FORMAT  (31H  COMPLEX  MATRIX  TRANSPOSE  OF  A.//4X2H  I.3X2H  J*  19X7H  A 
1(I*J)//(1H  ?.  15 .2E20.8  ) ) 

END 


XOT 

test 

5 

3 

6* 

8* 

4* 

"2  • 

1* 

0# 

0# 

10. 

.6» 

-2. 

4* 

-4. 

2 • 

-8. 

8 • 

3. 

4' 

-2. 

3» 

2. 

4# 

6 % 

2* 

-8. 

3 • 

-2. 

2 • 

-1. 

1 • 

0. 

- FIN 


c 
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SAMPLE  OUTPUT  (FROM  MATAB)  2 

Test  program  for  complex  matrix  transpose.  § 

4* 


main  program  tc  test  coeplfx  fat*mx  transpose. 


COMPLEX  MATRIX  TRANSPOSE  OF 


T J 


A(TtJ) 


1 1 

! 7 

1 1 

7 I 

7 7 

7 3 

* ! 

^ 2 

T J 

U I 

II  p 

U T 

« I 

« 2 

« 1 


•6*oor*oo+*i 
.o*coo*oo 
•2*000000+"! 
•u*co**oo+*i 
•6*ooo*oo+*i 
•e*oocooo+*i 
• i*roo*oo+*i 
-•4*roo*oo+*i 
••a*ro**oo+*i 
•o*oco*o o 
•2*00**00+" 1 
•3**o**oo+*i 
•6**oo*oo+*i 
•b**o**oo+*i 
-•4*ro*ooo+*i 


•eooooOoo+oi 

• <00000*0+02 

• •2*0000*64-01 

••2*0000*0+01 

••500000*0+01 

•^*000**0+01 

•000000*0 

• •11*0000*0+01 
• 000000*0+01 

• 1*000*00+02 
••POOCOCoO+Ol 
•2*0000*0+01 
• 000000*0+01 
0*000**0+01 
•+0000**0+01 


EvECUTION  TERMINATED  "Y  A*'  AT*rMPT  To  pLa*  TH*ll  END*Op*0AtA» 
A°OVE  FAULT  A*  INTERNAL  SPCUE>*E  MJMB*P  O01*«  IN  ^Es+ 
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SAMPLE  INPUT  (FOR  CJ.NV1) 
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o 


D 


i 


i 


k 


> 


v 


* 


- RUN  HIDOlL *ZJ1190*3*10 

- ASG  AsRE^FM 

- PLT  * A INV.CINVI 

- FOR  TEST? 

C MAIN  F 30GRAM  TO  TEST  DETERMINANT  EVALUATION  AND  MATRIX  INVERSION 
C OF  COF’LEX  AND  REAL  MATRICES*  SET  IER=0  FOR  COMPLEX  MAIRIX*  IER»1 

C FOR  REAL  MATRIX.  DIVIDE  CHECK  USED  FOR  SINGULARITY. 

C 

DIMEnE ion  AREAL ( 50) .BIMAGI  50) »K(1) » IKI 1 ) 

EQUIV.  ’-ENCE  (AREAL!  1)  .Kill)  » (AREAL  (2)  .KI2I)  . I AREAL  I 3 ) .K(  3 ) ) . I BI  MAG 
1 1 1 ) . I M 1 )) . I B I M AG  1 2 ) . I K 1 2 )) . I B I MAG  I 3 ) . I K 1 3 ) ) 

C 

C PROGR/M  INITIALIZATION. 

c 

WRITF  (6.100) 

I READ  < 5*101)  N.  IER 
KN*N*I 

IF  (IE  1.EQ.0)  GO  TO  2 

READ  (5.102)  ( AREAL ( L ) . L=M.4.-1) 

K(2)*F 
K ( 3 ) 

GO  TO  5 

: read  (5.103)  (AREAL(L) .BIMAG(L) . L»M.4.-1) 

I K ( 2 ) ®N 
I K ( 3 ) * N 
C 

C CALI.  SEQUENCE. 

C 

CALI.  CINV1  (AREAL. BIMAG. IER) 

IF  (IER. EG. 1)  GO  TO  7 
IF  (IER.EQ.-1)  GO  TO  0 
GO  TO  10 

5 DO  6.  1=1  * M 

9 1 MAG ( L) *0.0 

6 CONTIF  JE 

CALI.  { INV1  (AREAL. BIMAG.  IER  ) 

IF  (IER.EQ.1)  GO  TO  7 
IF  (IE1.EQ.-1)  GO  TO  0 
GO  TO  11 
C 

C OUTPUT . 

C 

7 WRITF  (6.104) 

30  TO  1 

0 WRITE  (6.105) 

GO  TO  l 

10  WRITE  (6.106)  AREAL ( 1 ) *BI MAG ( 1 ) 

WRITE  (6*107)  (AREAL(L) .BIMaG(L) . L«M,4.-1) 

GO  TO  1 

II  WRITE  (6*100)  AREAL  1 1 ) 

WRITE  (6*109)  (AREAL(L).  L=  M.4.-1) 

GO  TO  1 
f 

c FOrMAl  STATEMENTS. 

C 100  FORMAT ( 96H1MAI N PROGRAM  TO  TEST  INVERSION  A h.j  DETERMINANT  EVALUATI 
ION  OF  3ENERAL  COMPLEX  AND  REAL  MATRICES.////) 

101  FORMAT (215) 

102  FORMAl (F10.0) 

103  FORMAT (F1C.0.F10.0) 


l 


r 
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104  FORMAT ( 20H 
10*5  FORMAT  ( 3 1 H 

106  FORMAT ( 15H 

107  FORMAT ( 16H 

108  FORMAT! 15H 

109  FORMAT ( 16H 
END 

XOT  TEST? 

3 1 


MATRIX 
MATRIX 
DETERMINANT 


IS  SINGULAR.//) 
NOT  IN  ACCEPTABLE 
2E20.8//) 


INVERSE  MATRIX. //(1H  2E2 
DETERMINANT  * E2O.0//) 
INVERSE  MATRIX.//! 1H  E20 


FORM.// ) 

0.8)  ) 

.8)  ) 


9.3746 

3.0416 

2.4371 

3.0M6 

6.1832 

1.2163 

2.4371 

1.2163 

8,44.’9 

3 0 

9.3746 

9.3746 

3.0416 

3.0416 

2.4371 

-2.4371 

3.0416 

3.0416 

6.1832 

6.1832 

1.2163 

1.2163 

2.4371 

-2.4371 

1.2163 

1.2163 

3.4429 

3.4429 

- FIN 


f 
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SAMPLE  OUTPUT  (FROM  CINV1) 


> 


MAIN  PROfR/\P  TC  TFST  A*D  0r7LRMiNANT  FVALUA*!0*1  0p  PENEPAL  FfiM»LE*  AND  REAL  MATRICESt 


rETEpMIN8KT  • •V' 265'*?P+',3 


*NVFBSE  ►*ATP»X» 

.1PPP3262-00 
».P’*r373>“01 
.RU7-32R3-C1 
-.P*5«*3731-C1 
,?1  VSOfE-OO 
-.">/tPPP79f-01 
.PU7-32P3-C1 
-.RIi9Pp796-Cl 
• 1 ii?  1 63f F~00 

"ETEPMINANt  r j''B18»«P4',3 


INVERSE  MATP * X • 

,0o9r253°-Cl 
~,A’»7r72fi0-01 
.ou7^39?2-01 
-.A’»7'“72A0-01 
. i ^?P9001“00 
-.cuO*82??-01 
,0u7''39?2-01 
-.o«9*P2?*i-01 
.PuSPCSSS-OO 


-.C9R'?P3,'-L'l 
.p77f*7?A«»-0l 
-,e/|«»A*R9?*.0i 
,*  77*72  A<*-0i 

,eqo«R?9»-Ci 

-,e47*R<»?7-Ui 

,c4a*A??*-Oi 


EvECOTICN  TpP^INATEC  **V  A*‘  AT»F*P*  Tft  "Ea«  THRU  FMO-CF-pArA, 
A"OVF  FAUI  T A7  INTEFNM  pr&UE* rE  * UMR**»  OOlnA  IN  tfS*7 


k 


► 


f 
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COST  ESTIMATE 

For  the  jobs  listed  on  the  Sample  Input,  the  processing  times  are 
listed  below.  The  current  rate  for  the  University  of  Notre  Dame 
is  $480 •/hour  for  computer  time  with  an  additional  charge  of  $10 • 
for  postage  and  handling. 

Charge  to  user  = computer  costs  + postage  and  handling  + network 

overhead 


Program 

Processing  Time 
(in  seconds) 

Computer 

costs 

Charge 
to  user 

GAMMA 

16 

$2.51 

$12.51 

BES 

23 

$3.74 

$13.74 

MATAB 

(add.  § sub.) 

32 

$4.67 

$14.67 

MATAB 

(multiplic . ) 

43 

$6.11 

$16.11 

MATAB 

(postmul  ip. ) 

29 

$4.23 

$14.23 

MATAB 

(transpose) 

32 

$4.74 

$14.74 

CINV1 

32 

$4.82 

$14.82 

* A figure  for  network  overhead  must  still  be  added  to  the  totals 
in  this  column. 


CONTENTS— BEEFM 


pages 

1 Identification  § Abstract 
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Bio-Medical  Multivariate  Statistical 
Programs 

BMD 

University  of  Notre  Dame 
Computing  Center 

School  of  Medicine 

University  of  California,  Los  Angeles 

UNIVAC  Division  of  Sperry  Rand  Corporation 

College  of  Business  Administration  and 
Computing  Center 
University  of  Notre  Dame 

FORTRAN  IV 

UNIVAC  1107 

Decks  and  listings  presently  available 

Elizabeth  Hutcheson,  EIN  Technical 
Representative,  Computing  Center, 
University  of  Notre  Dame,  Notre  Dame, 

Ind.  46556 

Tel.:  (219)  283-7784 


The  BMD  system  is  a package  of  computer  programs  designed  to 
do  both  basic  data  processing  and  the  subsequent  statistical 
analysis.  The  programs  have  been  prepared  in  an  easy-to-use 
parametric  form  so  that  the  researcher  may  adapt  them  to  a 
wide  variety  of  statistical  problems.  For  further  details, 
of  the  package,  see  the  User  Instructions.  The  BMD  is  available 
at  the  University  of  Notre  Dame  in  its  1967  edition. 

REFERENCES 

Dixon,  W.J.  (Ed.),  BMD:  Biomedical  Computer  Programs,  ( Univ. 

of  Calif.  Press,  Berkeley,  1967,  1970). 

Univ.  of  Notre  Dame  Computing  Center,  BMD  for  the  UNIVAC  1107 , 
(Rough  draft,  1967  ed.  of  BMD).  Available  from  Univ.  of 
Notre  Dame  Computing  Center,  Notre  Dame,  Ind. 
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USER  INSTRUCTIONS 

The  computer  routines  which  constitute  the  BMD  multivariate 
statistical  package  are  designed  for  use  by  statisticians  and 
researchers;  their  use  does  not  require  the  services  of  a 
computer  programmer.  The  user  of  the  statistical  system  enters 
his  data  on  punched  cards  in  an  easy-to-use  and  flexible  for- 
mat. A problem  header  card  is  also  punched  which  defines  the 
size  and  options  to  be  used  for  each  analysis  to  be  performed. 
Detailed  instructions  for  the  preparation  of  these  cards  is 
included  in  Ref.  1 and  2. 

The  card  decks  are  then  forwarded  to  the  UNIVAC  1107  or  1108 
computer  installation  where  system  cards  are  added  These 
systems  cards  call  the  appropriate  computer  program  and  define 
any  tape  files  used.  The  analysis  is  then  performed  on  the 
computer  and  the  print-outs  sent  back  to  the  researcher.  Many 
computer  installations  are  able  to  perform  this  service  (even 
for  large  computations)  for  researchers  within  a day. 

Keypunching  of  the  basic  input  can,  however,  often  be  a detailed 
and  time  consuming  operation.  Researchers  should  contact  the 
keypunching  department  before  they  start  accumulating  their 
raw  data  so  that  it  can  be  collected  in  a format  lending  itself 
to  rapid,  accurate  transcription. 

The  following  programs  comprise  the  BMD  package: 

Description 

SIMPLE  DATA  DESCRIPTION 

This  program  computes  simple  averages  and  measures 
of  dispersion  of  variables,  omitting  those  values 
which  the  user  specifies  for  exclusion  from  the 
computations . 

CORRELATION  WITH  TRANSGENERATION 

This  program  computes  simple  correlation  coefficients, 
averages  and  measures  of  dispersion. on  entering 
variables  and/or  transgenerated  variables  from 
selected  cases  whose  values  for  specified  variables 
have  a precise  logical  relationship  in  agreement 
with  a specified  Boolean  expression.  Cross -tabula- 
tion plots  are  optional. 

CORRELATION  WITH  ITEM  DELETION 

This  program  computes  a simple  correlation  matrix, 

continued 
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BMD01D 


BMD02D 


BMD03D 
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Name 


BMD04D 


BMD05D 


BMD06D 


BMD07D 


BMD08D 


BMD09D 


Description 

omitting  values  of  variables  that  the  user  specifies 
to  be  deleted.  Blanks  as  well  as  other  codes  may 
be  specified  for  deletion,  e.g.,  to  indicate  missing 
values . 

ALPHANUMERIC  FREQUENCY  COUNT  (1  COLUMN  DATA) 

This  program  computes  frequencies  of  legal  charac- 
ters on  one-column  data.  Any  legal  numeric,  alpha- 
betic, or  special  character  is  counted.  The  input 
data  may  be  on  cards,  or  on  magnetic  tape  in  Field 
Data  mode. 

GENERAL  PLOT  INCLUDING  HISTOGRAMS 

This  program  provides  a method  by  which  graphs  and 

histograms  can  be  produced. 

DESCRIPTION  OF  STRATA 

Cases  are  separated  into  groups  based  on  specified 
intervals  of  one  variable,  the  conditioning  variable. 
For  these  selected  groups,  computations  are  performed 
for  any  other  variables  which  are  designated  as  the 
conditioned  variables.  Univariate  descriptions  and 
correlation  coefficients  are  included. 

DESCRIPTION  OF  STRATA  WITH  HISTOGRAMS 
This  program  groups  the  data  into  a specified  number 
of  groups  based  on  the  order  of  entry  of  the  data  or 
into  groups  whose  values  for  a base  variable  are 
within  intervals  established  by  specified  cut  points. 
For  these  groups,  histograms  are  printed  for  each 
variable.  The  number  of  classes  or  categories  of 
the  histograms  may  be  specified  or  they  may  be 
computed  by  the  program.  Univariate  descriptions 
and  correlation  coefficients  are  included. 

CROSS  TABULATION  WITH  VARIABLE  STACKING 
This  program  computes  two-way  frequency  tables  of 
data  input.  Frequency  tables  are  computed  from 
specified  ranges  of  the  original  variables,  variables 
after  transgeneration,  stacked  variables  or  combina- 
tions of  these.  Data  input  may  be  positive  or  nega- 
tive integers  only. 

CROSS  TABULATION,  INCOMPLETE  DATA 

This  program  performs  cross-tabulations  of  input  data, 
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Description 

excluding  from  cross -tabulation  specified  special 
values  or  codes  used  to  designate  missing  values. 

The  program  differentiates  between  blanks  and  zeros 
in  testing  for  special  values. 

DATA  PATTERNS  FOR  DICHOTOMIES 

This  program  finds  frequencies  and  patterns  of  any 
one  particular  specified  code  in  the  input  data. 

Frequent  use  will  be  for  a code  representing  missing 
values . 

DATA  PATTERNS  FOR  P0LYCH0T0M I ES 
This  program  prints  patterns  of  one-column  data 
and  item  numbers  or  case  numbers  to  identify  cases 
having  these  data  patterns.  If  desired,  original 
data  may  be. recoded  by  the  program  before  the  data 
patterns  are  printed. 

PRINCIPAL  COMPONENT  ANALYSIS 

This  program  computes  the  principal  components  of 
standardized  data  and  rank-orders  each  standardized 
case  by  the  size  of  each  principal  component  separately. 

REGRESSION  ON  PRINCIPAL  COMPONENTS 
This  program  computes  the  principal  components  of 
standardized  data  and  rank-orders  each  standardized 
case  by  the  size  of  each  principal  component  separately. 
Each  dependent  variable  is  regressed  on  the  first, 
first  two,  first  three  and  all  principal  components 
when  each  component  is  expressed  in  terms  of  standard- 
ized data. 

GENERAL  FACTOR  ANALYSIS 

This  program  performs  a principal  component  solution 
and  an  orthogonal  rotation  of  the  factor  matrix. 

Data  input  to  this  program  may  be  in  the  form  of  raw 
data,  a correlation  matrix,  or  a factor  matrix. 

Data  input  may  be  read  in  from  punched  cards , 

Field  Data  or  binary  tape. 

DISCRIMINANT  ANALYSIS  FOR  TWO  GROUPS 
This  program  computes  a linear  function  of  p vari- 
ables measured  on  each  individual  of  two  groups. 

This  function  can  serve  as  an  index  for  discrimin- 
ation between  the  groups.  It  is  determined  from 
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Description 

from  the  criterion  of  "best”  in  that  the  difference 
between  the  mean  indices  for  the  two  groups  divided 
by  a pooled  standard  deviation  of  the  indices  is 
maximized. 

DISCRIMINANT  ANALYSIS  FOR  SEVERAL  GROUPS 
This  program  directs  the  computation  of  a set  of 
linear  functions  for  the  purpose  of  classifying 
an  individual  into  one  of  several  groups . The  input 
data  consist  of  a set  of  observations  for  each  of 
the  classification  groups;  each  observation  consists 
of  the  values  of  a set  of  variables,  and  each  obser- 
vation contains  a value  for  each  of  the  variables. 

CANONICAL  ANALYSIS 

This  program  computes  the  canonical  correlations 
between  two  sets  of  variables. 

STEPWISE  DISCRIMINANT  ANALYSIS 

This  program  performs  a multiple  discriminant  analy- 
sis in  a stepwise  manner.  At  each  step  one  variable 
is  entered  into  the  set  of  discriminating  variables. 
The  entering  variable  is  selected  by  the  following 
equivalent  criteria;  the  variable  with  the  largest 
F value  (see  computational  procedure),  or  the  vari- 
able which  when  partialed  on  the  previously  entered 
variables  has  the  highest  multiple  correlation  with 
the  groups,  or  the  variable  which  gives  the  greatest 
decrease  in  the  ratio  of  within  to  total  generalized 
variances.  A variable  is  deleted  if  its  F value 
becomes  too  low.  The  program  also  computes  canonical 
correlations  and  coefficients  for  canonical  variables. 
It  plots  the  first  two  canonical  variables  to  give 
an  optimal  two-dimensional  picture  of  the  dispersion. 

SIMPLE  LINEAR  REGRESSION 

This  program  performs  simple  linear  regression  analy- 
sis on  a single  or  combined  treatment  groups  with 
unequal  sample  sizes.  (The  words  ‘'treatments  groups" 
are  used  here  to  describe  categories.)  The  "within" 
cross-products  sums  and  coefficients  are  computed; 
thus,  analysis -of -covariance  information  is  also 
provided  in  the  output. 
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Description 

STEPWISE  REGRESSION 

This  program  computes  a sequence  of  multiple  linear 
regression  equations  in  a stepwise  manner.  At  each 
step  one  variable  is  added  to  the  regression  equation. 
The  variable  added  is  the  one  which  makes  the  greatest 
reduction  in  the  error  sum  of  squares.  Equivalently, 
it  is  the  variable  which  has  highest  partial  correla- 
tion with  the  dependent  variable  partialed  on  the 
variables  which  have  already  been  added;  and  equiva- 
lently, it  is  the  variable  which,  if  it  were  added, 
would  have  the  highest  F value.  In  addition,  vari- 
ables can  be  forced  into  the  regression  equation. 
Non-forced  variables  are  automatically  removed  when 
their  F values  become  too  low.  Regression  equations 
with  or  without  the  regression  intercept  may  be 
selected . 

MULTIPLE  REGRESSION  WITH  CASE  COMBINATIONS 
This  program  performs  multiple  regression  and  cor- 
relation analysis  on  the  data  within  various  com- 
binations of  subsamples  from  the  same  population. 

PERIODIC  REGRESSION  AND  HARMONIC  ANALYSIS 
This  program  performs  periodic  or  harmonic  regression 
analysis  using  the  regression  function  of  the  Fourier 
series  form.  Periodic  regressions  are  computed  suc- 
cessively up  to  the  harmonic  specified  by  the  user. 

POLYNOMIAL  REGRESSION 

This  program  computes  polynomial  regressions  of  the 
form 

V th 

Y = a + BjX  + 32X2  + •••  + SkX*  (ktn  degree), 
where  k is  some  positive  integer. 

ASYMPTOTIC  REGRESSION 

This  program  performs  asymptotic  regression  analysis 
using  the  modified  exponential  funtion  of  the  form, 

Y = a + 3 x. 

By  making  a transgeneration  (or  successive  trans- 
generations)  on  the  dependent  variable  Y,  other 
equations  can  be  used. 
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Description 

LIFE  TABLE  AND  SURVIVAL  RATE 

This  program  computes  proportions  surviving,  survival 
rates  and  standard  errors  for  successively  reduced 
time  periods  and  prints  a plot  of  the  cumulative 
proportion  surviving. 

CONTINGENCY  TABLE  ANALYSIS 

This  program  computes  two-way  frequency  and  percentage 
tables,  chi  squares,  contingency  coefficients,  and 
maximum  likelihood  ratios.  Each  variable  may  be 
categorized  in  several  different  ways;  each  way  is 
referred  to  as  a categorization. 

BIOLOGICAL  ASSAY;  PROBIT  ANALYSIS 
This  program  obtains  maximum  likelihood  estimates 
for  the  parameters  a and  $ in  the  probit  equation 
y = a + $ x.  An  iterative  scheme  is  used.  As  an 
option,  an  estimate  of  the  natural  (threshold)  res- 
ponse rate  is  also  obtained. 

GUTTMAN  SCALE  PREPROCESSOR 

This  program  performs  the  initial  step  of  BMD06S 
and  BMD07S  (GUTTMAN  SCALE  NO.  2 , PARTS  1 AND  2). 

It  weights  the  input  data,  checks  the  data,  deter- 
mines the  frequencies  of  responses,  combines  those 
responses  which  have  frequencies  less  than  N!  (N 
is  user-specified)  of  the  total  respondents,  ranks 
the  respondents  by  the  Cornell  technique,  and  deter- 
mines the  errors. 

GUTTMAN  SCALE  NO.  1 

This  program  takes  the  data  on  many  variables,  assigns 
proper  weights  to  the  data,  ranks  the  respondents 
(or  cases)  from  most  favorable  to  least  favorable, 
and  assigns  a Guttman  scale  score  for  each  respondent. 
This  procedure  is  widely  used  for  data  from  attitude 
or  opinion  questionnaires. 

GUTTMAN  SCALE  NO.  2 , PART  1 

This  program  performs  the  initial  steps  for  GUTTMAN 
SCALE  NO.  2.  The  Problem,  Response,  and  Reflection 
(if  any)  Cards  are  read  and  processed.  The  input 
data  are  read  into  the  computer,  weighted,  and  checked 
for  valid  values . 
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Description 

GUTTMAN  SCALE  NO.  2,  PART  2 

This  program  performs  the  major  computations  of 
GUTTMAN  SCALE  NO.  2.  It  reads  and  processes  any 
Forced  Combination  Cards  and  performs  any  and  all 
combinations  of  responses  which  will  give  the  best 
possible  Guttman  scale  the  program  can  produce. 

During  the  running  of  the  program,  the  respondents 
are  ranked  by  the  Cornell  technique  after  each 
combination  and  the  errors  to  each  response  are 
determined . 

GUTTMAN  SCALE  NO.  2,  PART  3 

This  program  performs  the  final  steps  of  GUTTMAN 
SCALE  NO.  2.  In  this  program,  weights  are  assigned 
to  all  zero  responses  such  that  no  additional  errors 
are  introduced.  Guttman  scale  scores  are  assigned, 
and  the  final  results  specified  by  the  user  are 
printed  out. 

TRANSGENERATION 

This  program  performs  selected  transgenerations  on 
specified  variables  in  the  data.  Any  of  the  trans- 
generation codes  listed  in  the  BMD  manual  may  be 
selected.  Input  may  be  from  punched  cards,  from 
Field  Data  tape,  or  from  binary  tape. 

TRANSPOSTION  OF  LARGE  MATRICES 

This  program  performs  no  analysis  but  is  designed 
to  convert  large  matrices  to  the  form  required  by 
some  programs  which  do  perform  statistical  analysis 
(e.g.,  to  convert  data  from  "case-wise"  to  "variable- 
wise"  form  for  use  in  BMD01V).  Large  matrices  are 
read  in  from  cards  or  Field  Data  tape,  transposed, 
and  written  out  on  Field  Data  tape. 

AMPLITUDE  AND  PHASE  ANALYSIS 

This  program  computes  the  amplitude  and  phase  of 
moderately  wide-band  noise  and  noise  contaminated 
by  extraneous  noise.  The  amplitude  and  phase  are 
determined  from  a pair  of  finite  moving  averages 
on  the  sample  noise.  A generalized  Tukey  filter 
with  a variable  number  of  triangles  and  resolutions 
is  used. 
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Desorip tion 

AUTOCOVARIANCE  AND  POWER  SPECTRAL  ANALYSIS 
This  program  computes  the  autocovariance,  power 
spectrum,  cross  covariance,  cross  spectrum,  transfer 
function,  and  coherence  function  of  time  series. 

ANALYSIS  OF  VARIANCE  FOR  ONE-WAY  DESIGN 
This  program  computes  an  analysis -of -variance  table 
for  one  variable  of  classification,  with  unequal 
group  sample  sizes. 

ANALYSIS  OF  VARIANCE  FOR  FACTORIAL  DESIGN 

This  program  computes  an  analysis  of  variance  for 

a factorial  design. 

ANALYSIS  OF  COVARIANCE  FOR  FACTORIAL  DESIGN 
This  program  computes  a full  factorial  analysis 
of  covariance. 

ANALYSIS  OF  COVARIANCE  WITH  MULTIPLE  COVARIATES 
This  program  is  designed  to  compute  analysis -of - 
covariance  information  for  one  analysis -of -variance 
variable  with  multiple  covariates  and  unequal  treat- 
ment group  sizes.  Cases  may  be  specified  by  the 
user  as  being  in  certain  treatment  groups,  or  cases 
may  be  placed  in  treatment  groups  by  the  program  in 
accordance  with  a specified  Boolean  expression. 

GENERAL  LINEAR  HYPOTHESIS 

This  program  performs  the  calculations  required  for 
a general  linear  hypothesis  model.  The  independent 
variables  are  of  two  general  types,  variables  used 
to  specify  the  analysis -of -variance  classification, 
and  variables  used  as  covariates.  By  use  of  these 
variables,  the  program  can  be  used  for  balanced  or 
unbalanced  analysis -of -variance  or  covariance  de- 
signs and  missing-value  problems. 

GENERAL  LINEAR  HYPOTHESIS  WITH  CONTRASTS 
This  program  is  similar  to  BMD05V  in  that  it  is 
designed  to  estimate  and  test  the  statistical 
significance  of  the  parameters  which  occur  in  the 
general  linear  hypothesis  model.  This  program  is 
more  general  in  that  it  can  test  the  statistical 
significance  of  any  real  valued  linear  function 
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Description 

of  the  parameters.  It  is  less  general  in  that 
higher  order  simultaneous  tests  cannot  be  made. 

Thus,  this  program  can  test  the  hypothesis  $ = 

$2  « 0. 

MULTIPLE  RANGE  TESTS 

This  program  computes  an  analysis-of -variance  table 
for  one  variable  of  classification,  with  unequal 
group  sizes.  The  treatment  group  or  category  means 
are  ranked  in  increasing  order;  and  a multiple  range 
test,  using  significant  ranges  input  by  the  user, 
is  performed  on  the  ranked  means . A maximum  of  9 
range  tests  may  be  done  on  the  ranked  means. 

ANALYSIS  OF  VARIANCE 

This  program  performs  analysis  of  variance  for  any 
hierarchial  design  with  equal  cell  sizes.  This 
includes  the  nested,  partially  nested  and  partially 
crossed,  and  fully  crossed  designs.  The  model  is 
specified  by  indicating  the  nesting  relationship 
of  the  indices.  Separate  analyses  may  be  performed 
on  several  dependent  variables  simultaneously.  Each 
analysis  of  variance  table  includes  an  expected  mean 
square  in  terms  of  the  population  variance  components. 
For  this  calculation  each  index  may  be  specified  as 
fixed  or  random  from  a finite  or  infinite  population. 


REFERENCES 

Dixon,  W.J.  (Ed.),  BMD:  Biomedical  Computer  Programs , (Univ. 

of  Calif.  Press,  Berkeley,  1967,  1970). 

Univ.  of  Notre  Dame  Computing  Center,  BMD  for  the  UNIVAC  1107 , 
(Rough  draft,  1967  ed.  of  BMD).  Available  from  Univ.  of 
Notre  Dame  Computing  Center,  Notre  Dame,  Ind. 

Anderson,  T.W. , Introduction  to  Multivariate  Statistical  Analysis , 
(John  Wiley  § Sons,  Inc.,  New  York,  1958).  This  text  surveys 
most  of  the  procedures  used  by  BMD  Programs. 

Cooley,  W.W.  and  Lohnes,  P.R.,  Multivariate  Procedures  for  the 
Behavioral  Sciences , (John  Wiley  and  Sons,  Inc.,  New  York, 
1962) . The  MIT  statistical  package  is  described  in  this 
text . 
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REFERENCES 

Dixon,  W.J.,  and  Massey,  F.J.,  Introduction  to  Statistical 
Analysis , (McGraw-Hill  Book  Co.,  Inc.,  New  York,  1957), 
2nd  ed.  Statistical  definitions,  simpler  standard 
statistical  procedures,  and  reference  tables  for  tests 
and  estimation  techniques  are  included. 

Kendall,  M.G.,  A Course  in  Multivariate  Analysis , (Hafner 
Pub.  Co.,  New  York,  1957),  Ch.  I.  The  first  chapter  of 
this  text  gives  an  introduction  to  the  scope  and  problems 
considered  by  multivariate  statistical  analysis. 
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SAMPLE  INPUT  AND  OUTPUT 

See  Dixon,  W.J.  (Ed.),  BMD:  Biomedical  Computer  Programs , (Univ. 

of  Calif.  Press,  Berkeley,  1967). 
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DESCRIPTIVE  TITLE 


UNIVAC  1107  Linear  Programming  Package 


CALLING  NAME  LP1107 


INSTALLATION  NAME 


The  University  of  Notre  Dame  Computing 
Center 


AUTHOR(S)  AND  UNIVAC  Division  of  Sperry  Rand 
AFFILIATION(S) 

LANGUAGE  Sleuth  I I /FORTRAN  IV 


COMPUTER 
PROGRAM  AVAILABILITY 

CONTACT 


FUNCTIONAL  ABSTRACT 


UNIVAC  1107 

Decks  and  listings  presently  available 

Elizabeth  Hutcheson,  EIN  Technical 
Representative,  Computing  Center,  Univ. 
of  Notre  Dame,  Notre  Dame,  Ind.  46556 
Tel.:  (219)  283-7784 


LP1107  is  a generalized  program  for  the  solution  of  linear  pro- 
gramming problems.  More  specifically,  the  LP1107  command 
structure  is  a mathematical  programming  control  language;  used 
to  prepare  a control  sequence  for  a specific  programming  job. 


Either  the  dual  or  simplex  algorithm,  or  both,  can  be  used. 

LP1107  incorporates  a true  programming  language  with  logical 
capabilities  and  full  macro  capabilities.  If  a group  of  commands 
is  being  used  repetitively,  the  user  may  incorporate  it  into 
his  macro  command  library  and  issue  the  macro  command  instead. 
Single  and  double  precision  arithmetic  are  included. 


REFERENCES 

UNIVAC  Systems  Programming  Library  Services,  UP3897  1107LP 

User1 8 Manual  (preliminary),  (UNIVAC,  Sperry  Rand  Building, 

New  York,  1964)  . 

Aronofsky,  J.S.,  ’’Growing  Applications  of  Linear  Programming 
with  a View  Towards  Understanding  Principles  on  Which 
Future  LP  Systems  Must  be  Based,”  Communications  of  the  ACM , 
(June  1964) . 

Copies  of  these  references  are  available  through  the  local  UNIVAC 
representatives  or  from  the  EIN  Office  at  the  cost  of  reproduction 
and  mailing. 
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« USER  INSTRUCTIONS 

LT) 

o The  user  is  directed  to  the  references  for  a full  description  of 

0 the  operating  system  and  programming  language. 


REFERENCES 

UNIVAC  Systems  Programming  Library  Services,  UP3897  1107LP 

User's  Manual  (preliminary),  (UNIVAC,  Sperry  Rand  Building, 

New  York , 1964) . 

Aronofsky,  J.S.,  "Growing  Applications  of  Linear  Programming 
with  a View  Towards  Understanding  Principles  on  Which 
Future  LP  Systems  Must  be  Based,"  Communications  of  the  ACM, 
(June  1964) . 

Copies  of  these  references  are  available  through  the  local  UNIVAC 
representatives  or  from  the  EIN  Office  at  the  cost  of  reproduction 
and  mailing. 
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SAMPLE  INPUT 


The  problem  shown  is 
gramming  by  Charnes, 
New  York , 1953) . 


that  described  in  Introduction  to  Linear  Pro « 
Cooper  and  Henderson,  (John  Wiley  fj  Sons, 
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V RUN  SMITH,  077707,5,20 

V XQT  CUR 
TRW  F 

IN  F 
TRW  F 

V XQT  1107LP 

SET  CASE1  TO  (NUT-MI)  ; 


DEFINE  CONTENTS  OF  CASE1 


SET  CASE2  TO  (X 

> ; 

DEFINE  CONTENTS  OF 

TITLE 

• 

NEXT  CARD  CONTAINS 

1107LP  RUN  ON  NUT- 

MIX PROBLEM 

LOAD 
ROW  ID 

1 +MA-CAS 

1 +MA+PEA 

1 +MB-CAS 

1 +MB+PEA 

1 +XX+CAS 

1 +XX+PEA 

1 +XX+HAZ 

MATRIX 

■ 

LOAD  SHARE  FORMAT 

XX+CAS 

1.0 

XX+PEA 

1 .0 

XX+HAZ 

0.6 

MA / CAS  $$$$$$ 

0.5 

MA/CASMA-CAS 

-0.5 

MA/CASMA+PEA 

-0.2  5 

MA/CASXX+CAS 

1 .0 

MA/PEA$$$$$$ 

0.5 

MA/PEAMA-CAS 

0.5 

MA/PEAMA+PEA 

0.75 

MA/PEAXX+PEA 

1.0 

MA/HAZ$$$$$$ 

0.5 

MA/HAZMA-CAS 

0.5 

MA/HAZMA+PEA 

-0.25 

MA/HAZXX+HAZ 

1.0 

MB/CAS$$$$$$ 

0.35 

MB/CASMB-CAS 

-0.75 

MB/CASMB+PEA 

-0.5 

MB/CASXX+CAS 

1.0 
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MB/PEA$$$$  $$ 

0.35 

MB/PEAMB-CAS 

0.25 

MB/PEAMB+PEA 

0.5 

MB/PEAXX+P  EA 

1 .0 

MB/HAZ$  $$$  $$ 

0.35 

MB/HAZMB-CAS 

0.25 

MB/HAZMB+PEA 

-0.50 

MB/HAZXX+HAZ 

1 .0 

MD/CAS$$$$$$ 

0.25 

MD/CASXX+CAS 

1.0 

MD/PEA$$$$$$ 

0.25 

MD/PEAXX+PEA 

1.0 

MD/HAZ$  $$$  $$ 

0.25 

MD/HAZXX+HAZ 

1.0 

SLACK  PRICES 

XX+CAS$  $$$  $$ 

0.65 

XX+PEA$$$$$$ 

0.25 

XX+HAZ$$$$$$ 

0.35 

; OUTPUT  LABELS,  COSTS,  AND  STATUS  FLAGS 
; OUTPUT  MATRIX  TABLEAU  WITHOUT  UNIT  POSITIVES. 
; OUTPUT  MATRIX  IN  EQUATION  FORM. 

; OUTPUT  MATRIX  IN  COMPACT,  CODED  FORM. 

; OBTAIN  OPTIMAL,  FEAS I BLE; RAT  I ONAL  SOLUTION. 

; INVERT  TO  CURRENT  BASIS  IN  DOUBLE  PRECISION. 

; RETURN  TO  SINGLE  PRECISION. 

; RESOLVE  IN  CASE  INVERSION  INCOMPLETE. 

; OUTPUT  ACTIVITY  LEVELS  AT  SOLUTION. 

; OUTPUT  SHADOW  PRICES. 

; OUTPUT  REDUCED  COSTS  OF  NON  BASIS  VARIABLES. 

; OUTPUT  PRIMAL  AND  DUAL  BASIS. 

; COMPUTE  AND  OUTPUT  PRIMAL  AND  DUAL  ERRORS. 

; RETURN  TO  MONITOR. 


ENDATA 

LISTPR 

MATR I X 

EQLIST 

MIXMAP 

GOGOGO 

DPMODE 

SPMODE 

GOGOGO 

PRIMAL 

DUAL 

REDCST 

RANGES 

ERRORS 

ENDJOB 

V FIN 
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£ SAMPLE  OUTPUT 

o 

o 

o 

o XQT  1107LP  .000.000.001 


SET  CAS El  TO  (NUT-MI) 
SET  CA5E2  TO  (X  ) 
TITLE 
LOAD 


DEFINE  CONTENTS  OF  CASE1 
DEFINE  CONTENTS  OF  CASE 2 
NEXT  CARD  CONTAINS  PAGE  HEADING 
LOAD  SHARE  FORMAT  MATRIX 


1107LP  RUN  ON  NUT-MIX  PROBLEM  .000.001.001 

LOADER  STATISTICS 
STRUCTURAL  MATRIX 

7 ROWS  9 COLUMNS  21  NON-ZERO  ELEMENTS  33.3  PCT.  DENSE 
.250000  IS  SMALLEST  ELEMENT  1.000000  IS  LARGEST  ELEMENT 


COST  VECTOR 

12  NON-ZERO  ELEMENTS  75.0  PCT.  DENSE 
.250000  IS  SMALLEST  ELEMENT 


.650000  IS  LARGEST  ELEMENT 


RHS  VECTOR 

3 NON-ZERO  ELEMENTS  42.9  PCT.  DENSE 

.600000  IS  SMALLEST  ELEMENT  1.000000  IS  LARGEST  ELEMENT 

0 INITIAL  INFEASIBILITIES  0 INITIAL  ARTIFICIALS 


1107LP  RUN  ON  NUT-MIX  PROBLEM  .000.003.001 


LIST  PRINT  REPORT 


FLAG  FUNCTION 

1- ORIGINAL  BASIS 

2- CURRENT  BASIS 

3- DESIRED  BASIS 

4-  FREE  VARIABLE 

5- FROZEN  VARIABLE 

6- INVERSION  CONTROL 


continued 


7/70 


> * 

! ERIC 


J 


000  0056 


000  0056 


EDUCATIONAL  INFORMATION  NETWORK 


EDUCOM 


000  0056 


PVNO  IS  THE  PIVOT  VECTOR  COUNT  AT  THE  TIME  THE  VARIABLE  LEFT  THE  BASIS 


LABEL 

COST  FLAG 

1 

2 

3 

4 

5 

6 

PVNO 

1 MA-CAS 

.000000 

YES 

YES 

NO 

NO 

NO 

NO 

0 

2 MA+PEA 

.000000 

YES 

YES 

NO 

NO 

NO 

NO 

0 

3 MB-CAS 

.000000 

YES 

YES 

NO 

NO 

NO 

NO 

0 

4 MB+PEA 

.000000 

YES 

YES 

NO 

NO 

NO 

NO 

0 

5 XX+CAS 

.650000 

YES 

YES 

NO 

NO 

NO 

NO 

0 

6 XX+PEA 

.250000 

YES 

YES 

NO 

NO 

NO 

NO 

0 

7 XX+HAZ 

.350000 

YES 

YES 

NO 

NO 

NO 

NO 

0 

8 MA/CAS 

.500000 

NO 

NO 

NO 

NO 

NO 

NO 

0 

9 MA/PEA 

.500000 

NO 

NO 

NO 

NO 

NO 

NO 

0 

10  MA/HAZ 

.500000 

NO 

NO 

NO 

NO 

NO 

NO 

0 

11  MB/CAS 

.350000 

NO 

NO 

NO 

NO 

NO 

NO 

0 

12  MB/PEA 

.350000 

NO 

NO 

NO 

NO 

NO 

NO 

0 

13  MB/HAZ 

.350000 

NO 

NO 

NO 

NO 

NO 

NO 

0 

14  MD/CAS 

.250000 

NO 

NO 

NO 

NO 

NO 

NO 

0 

15  MD/PEA 

.250000 

NO 

NO 

NO 

NO 

NO 

NO 

0 

16  MD/HAZ 
END  OF  LIST 

.250000 

PRINT. 

NO 

NO 

NO 

NO 

NO 

NO 

0 

1107LP  RUN  ON  NUT-MIX  PROBLEM 


.000.005.001 


CASE  NUT-MIX 


MATRIX  TABLEAU 


LABEL 

COST 

BASIS 

MA/CAS 

MA/PEA 

MA/HAZ 

COST 
W LABEL 

.000000 

.000000 

.500000 

.500000 

.500000 

1 MA-CAS 

.000000 

.000000 

-.500000 

.500000 

.500000 

2 MA+PEA 

.000000 

.000000 

-.250000 

.750000 

-.250000 

3 MB-CAS 

.000000 

.000000 

.000000 

.000000 

.000000 

4 MB+PEA 

.000000 

.000000 

.000000 

.000000 

.000000 

5 XX+CAS 

.650000 

1.000000 

1.000000 

.000000 

.000000 

6 XX+PEA 

.250000 

1.000000 

.000000 

1.000000 

.000000 

7 XX+HAZ 

.350000 

.600000 

.000000 

.000000 

1.000000 

continued 
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1107LP  RUN  ON  NUT-MIX  PROBLEM 

CASE  NUT-MIX 

LABEL  MB/CAS 


.000.006.001 


MATRIX  TABLEAU 


MB/PEA 


MB/HAZ 


MD/CAS 


MD/PEA 


COST 

ROW  LABEL 

.350000 

.350000 

.350000 

.250000 

.250000 

1 MA-CAS 

.000000 

.000000 

.000000 

.000000 

.000000 

2 MA+PEA 

.000000 

.000000 

.000000 

.000000 

.000000 

3 MB-CAS 

-.750000 

.250000 

.250000 

.000000 

.000000 

4 MB+PEA 

-.500000 

.500000 

-.500000 

.000000 

.000000 

5 XX+CAS 

1.000000 

.000000 

.000000 

1.000000 

.000000 

6 XX+PEA 

.000000 

1.000000 

.000000 

.000000 

1.000000 

7 XX+HAZ 

.000000 

.000000 

1.000000 

.000000 

.000000 

1107LP  RUN  ON  NUT-MIX  PROBLEM 


.000.007.001 


c 


CASE  NUT-MIX 

LABEL 

COST 

ROW  LABEL 
1 MA-CAS 


MATRIX  TABLEAU 


2 

3 

4 

5 

6 
7 


MA+PEA 

MB-CAS 

MB+PEA 

XX+CAS 

XX+PEA 

XX+HAZ 


MD/HAZ 

.250000 


.000000 

.000000 

.000000 

.000000 

.000000 

.000000 

1.000000 


END  OF  MATRIX  TABLEAU 
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1107LP  RUN  ON  NUT-MIX  PROBLEM 
EQLIST  OUTPUT  MATRIX  IN  EQUATION  FORM. 

1107LP  RUN  ON  NUT-MIX  PROBLEM 

CASE  NUT-MIX  EQLIST  OUTPUT 

EQUATION  1 LABEL  MA-CAS  COST  = .000000  ORIGINAL  BI  = 

+ 1 .OOOOOC MA-CAS)  = .50000CMA/CAS)  + . 50000CMA/PEA)  4 

EQUATION  2 LABEL  MA+PEA  COST  = .000000  ORIGINAL  BI  = 

+ l.OOOOOCMA+PEA)  = .25000CMA/CAS)  + . 75000CMA/PEA)  = 

EQUATION  3 LABEL  MB-CAS  COST  = .000000  ORIGINAL  BI  = 

+ l.OOOOO(MB-CAS)  = .75000CMB/CAS)  + .25000(MB/PEA) 

EQUATION  4 LABEL  MB+PEA  COST  = .000000  ORIGINAL  BI 

+ l.OOOOOCMB+PEA)  = .50000CMB/CAS)  + .50000CMB/PEA) 

EQUATION  5 LABEL  XX+CAS  COST  = .650000  ORIGINAL  BI 

+ l.OOOOOCXX+CAS)  + l.OOOOOCMA/CAS)  + 1 .OOOOOCMB/CAS) 

EQUATION  6 LABEL  XX+PEA  COST  = .250000  ORIGINAL  BI 

+ l.OOOOOCXX+PEA)  + l.OOOOOCMA/PEA)  + 1 .OOOOOCMB/PEA) 

EQUATION  7 LABEL  XX+HAZ  COST  = .350000  ORIGINAL  BI  = 

+ 1 . OOOOOC XX+HAZ)  + 1 . 00000 (MA/HAZ)  + 1 .OOOOOCMB/HAZ) 

END  EQLIST  OUTPUT 


.000.008.001 
.000.009.001 

.000000 

. 50000CMA/HAZ) 

.000000 

. 25000CMA/HAZ) 

.000000 

+ .25000CMB/HAZ)  ( ) 

= .000000 

+ . 50000CMB/HAZ) 

= 1.000000 

+ l.OOOOOCMD/CAS) 

= 1.000000 
+ 1 .OOOOOCMD/PEA) 

.600000 

t-  l.OOOOOCMD/HAZ) 
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1107LP  RUN  ON  NUT-MIX  PROBLEM 


MTXMAP  OUTPUT 


CASE  NUT- 

-MIX 

ITERATION 

0 OBJECTIVE  VALUE 

C 

B 

M 

M 

M M 

M M M 

M 

M 

0 

A 

A 

A 

A B 

B 

B 

D 

D 

D 

S 

S 

/ 

/ 

/ / 

/ 

/ 

/ 

/ 

/ 

T 

I 

C 

P 

H C 

P 

H 

C 

P 

H 

S 

A 

E 

A A 

E 

A A 

E 

A 

S 

A 

Z S 

A 

Z 

S 

A 

Z 

COST 

• 

5 

5 

5 5 

5 

5 

5 

5 

5 

MA-CAS 

• 

-5 

5 

5 . 

MA+PEA 

• 

-5 

5- 

-5  . 

MB-CAS 

5 

5 

• 

MB+PEA 

.-5 

5- 

-5 

• 

XX+CAS 

5 

1 

1 

• 

. 1 

• 

• 

1 

XX+PEA 

5 

1 

• 

1 

• • 

1 

• 

• 

1 

XX+HAZ 

5 

5 

• 

• 

1 . 

• 

1 

• 

• 

1 

1107LP  RUN  ON  NUT-MIX  PROBLEM 


THE  MATRIX  ELEMENTS  ARE  REPRESENTED  AS  FOLLOWS 


CODE 

MAGNITUDE 

OF  ELEMENTS 

OCCURENCES 

GREATER 

EQUAL  TO  OR 

THAN 

LESS  THAN 

0 

0.0 

0.0001 

o ; 

2 

0.0001 

0.001 

0 

3 

0.001 

0.01 

0 

4 

0.01 

0.1 

0 

5 

0.1 

0.9999 

25 

1 

= 1 

.0 

11 

6 

1.0 

10.0 

0 

7 

10.0 

100.0 

0 

8 

100.0 

1000.0 

0 

9 

1000.0 

0 

END  MTXMAP  OUTPUT 
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GOGOGO  OBTAIN  OPTIMAL,  FEASIBLE,  RATIONAL  SOLUTION. 


STAGE  O PVCNT  O OBFVAL 
96  MS  FOR  DOZ 

ITCNT  O DJBAD  1000.000  KOLAY 
135  MS  FOR  SSS 
26  MS  FOR  UPDATE 
65  MS  FOR  OPTMIZ 
78  MS  FOR  PIVGEN 


1.110000  NET  CHANGES  0 
9 NO LAY  9 ART  0 INF  0 


STAGE  1 PVCNT  5 OBFVAL  1.160000  NET  CHANGES  5 

220  MS  FOR  DOZ 

ITCNT  5 DJBAD  1000.000  KOLAY  0 NO  LAY  0 ART  0 INF  0 

111  MS  FOR  SSS 

49  MS  FOR  UPDATE 

32  MS  FOR  OPTMIZ 

4 MS  FOR  PIVGEN 

STAGE  2 PVCNT  5 OBFVAL  1.160000  NET  CHANGES  5 

DPMODE  INVERT  TO  CURRENT  BASIS  IN  DOUBLE  PRECISION. 

INVERSION  FINISHED  WITH  0 NOT  REMOVED  AND  0 NOT  ENTERED 
SPMODE  RETURN  TO  SINGLE  PRECISION 

GOGOGO  RESOLVE  IN  CASE  INVERSION  INCOMPLETE. 


STAGE  0 PVCNT  5 OBFVAL 
99  MS  FOR  DOZ 

ITCNT  5 DJBAD  1000.000  KOLAY 
137  MS  FOR  SSS 
94  MS  FOR  UPDATE 
33  MS  FOR  OPTMIZ 
2 MS  FOR  PIVGEN 


1.160000  NET  CHANGES  5 
9 NOLAY  9 ART  0 INF  0 


STAGE  1 PVCNT  5 OBFVAL  1.160000  NET  CHANGES  5 
PRIMAL  OUTPUT  ACTIVITY  LEVELS  AT  SOLUTION. 
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.000.014.001 


PRIMAL  OUTPUT 


CASE  NUT-MIX 

ITERATION 

5 OBJECTIVE 

VALUE 

1.160000 

LABEL 

COST 

ACTIVITY 

LABEL 

COST 

ACTIVITY 

XX+PEA 

.250000 

.500000 

XX+HAZ 

.350000 

.100000 

MA/CAS 

.500000 

1 

.000000 

MA/PEA 

.500000 

.500000 

MA/HAZ 

.500000 

.500000 

MB/ PEA 

.350000 

.000000 

MB/HAZ 

.350000 

.000000 

END  PRIMAL 

OUTPUT 

)7LP  RUN  ON 

NUT-MIX  PROBLEM 

.000.016.001 

DUAL  OUTPUT 

CASE  NUT-MIX 

ITERATION 

5 OBJECTIVE 

VALUE 

1.160000 

LABEL 

COST 

SHADOW  PRICE 

LABEL 

COST  SHADOW  PRICE 

MA-CAS 

.000000 

.350000 

MA+PEA 

.00000 

.100000 

MB-CAS 

.000000 

.200000 

MB+PEA 

.00000 

.100000 

XX+CAS 

.650000 

.700000 

XX+PEA 

.25000 

.250000 

XX+HAZ 

.350000 

.350000 

END  DUAL  OUTPUT 


1107LP  RUN  ON  NUT-MIX  PROBLEM 


r 


REDCST  OUTPUT 


.000.018.001 


CASE  NUT-MIX 

ITERATION 

5 OBJECTIVE 

VALUE 

1.160000 

LABEL 

COST  REDUCED  COST 

LABEL 

COST  REDUCED  COST 

MA-CAS 

.000000 

.350000 

MA+PEA 

.00000 

.100000 

MB-CAS 

.000000 

.200000 

MB+PEA 

.00000 

.100000 

XX+CAS 

.650000 

.050000 

MB/CAS 

.35000 

.150000 

MD/CAS 

.250000 

.450000 

MD/PEA 

.25000 

.000000 

MD/HAZ 

.250000 

.100000 

END  REDCST  OUTPUT 
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1107LP  RUN  ON  NUT-MIX  PROBLEM  .000.020.001 

DUAL  RANGE  OUTPUT 

CASE  NUT-MIX  ITERATION  5 OBJECTIVE  VALUE  1.160000 


LIMITS  OF  RANGE 


LABEL 

ORIG.  ACT.  LABEL 

INCREMENT  LABEL 

INCREMENT 

MA-CAS 

.000000  XX+HAZ 

-.066667  MA/HAZ 

.333333 

MA+PEA 

.000000  MA/HAZ 

-.500000  XX+HAZ 

.100000 

MB-CAS 

.000000  XX+HAZ 

-.050000  MB/HAZ 

.000000 

MB+PEA 

.000000  MB/HAZ 

-.000000  MB/PEA 

.000000 

XX+CAS 

1.000000  XX+HAZ 

-.200000  MA/HAZ 

1.000000 

MB/CAS 

.000000  MB/HAZ 

-.000000  XX+HAZ 

.200000 

MD/CAS 

.000000  XX+HAZ 

-.200000  MA/HAZ 

1.000000 

MD/PEA 

.000000 

-9999.000000  XX+PEA 

.500000 

MD/HAZ 

.000000 

-9999.000000  XX+HAZ 

.100000 

END  DUAL  RANGE  OUTPUT 


1107LP  RUN  ON  NUT-MIX  PROBLEM  .000.021.001 

PRIMAL  RANGE  OUTPUT 

CASE  NUT-MIX  ITERATION  5 OBJECTIVE  VALUE  1.160000 


LIMITS  OF  RANGE 


LABEL 

COST  LABEL 

INCREMENT  LABEL 

INCREMENT 

XX+PEA 

.250000  MD/PEA 

-.000000  MA+PEA 

.100000 

XX+HAZ 

.350000  MA+PEA 

-.100000  MB-CAS 

.100000 

MA/CAS 

.500000  XX+CAS 

-.050000 

9999.000000 

MA/PEA 

.500000  MA+PEA 

-.100000 

9999.000000 

MA/HAZ 

.500000  XX+CAS 

- . 100000  MA+PEA 

.100000 

MB/PEA 

.350000  MB-CAS 

- . 100000  MB/CAS 

.075000 

MB/HAZ 

.350000  MB-CAS 

-.100000  MB+PEA 

.100000 

END  PRIMAL 

RANGE  OUTPUT 

continued 


106 


7/70 


000  0056 


000  0056 


EDUCOM 


EDUCATIONAL 


1107LP  RUN  ON  NUT-MIX  PROBLEM 


DUAL  ERROR  ANALYSIS 


LABEL 

ZCJ) 

C(J) 

ERROR 

XX+PEA 

.250 

.250 

.OOOOOOOO 

XX+HAZ 

.350 

.350 

.OOOOOOOO 

MA/CAS 

.500 

.500 

.OOOOOOOO 

MA/HAZ 

.500 

.500 

.OOOOOOOO 

MB/PEA 

.350 

.350 

.OOOOOOOO 

MB/HAZ 

.350 

.350 

.OOOOOOOO 

MAXIMUM  DUAL 

ERROR  OF 

.OOOOOOOO 

FOR  VARIABLE 

1107LP  RUN  ON  NUT-MIX 

PROBLEM 

PRIMAL 

ERROR  ANALYSIS 

LABLE 

ORIG'BCI) 

CALC  BCD 

ERROR 

MA-CAS 

.000 

.000 

-.OOOOOOOO 

MA+PEA 

.000 

.000 

-.OOOOOOOO 

MB-CAS 

.000 

.000 

-.OOOOOOOO 

MB+PEA 

.000 

.000 

-.OOOOOOOO 

XX+CAS 

1.000 

1.000 

-.OOOOOOOO 

XX+PEA 

1.000 

1.000 

-.OOOOOOOO 

XX+HAZ 

.600 

.600 

-.OOOOOOOO 

MAXIMUM  PRIMAL  ERROR  OF 


.OOOOOOOO  FOR  VARIABLE 


1107LP  RUN  ON  NUT-MIX  PROBLEM 


END JOB  RETURN  TO  MONITOR. 


RUN  TIME  0 HRS  0 MIN  21  SEC 


t 
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COST  ESTIMATE 

For  the  program  listed  on  the  Sample  Input,  computer  time  was  21 
seconds.  At  the  current  rate  for  the  University  of  Notre  Dame 
($480. /hr.  plus  input-output  charges),  the  chargeable  computer 
cost  was  $4.18. 

Charge  to  user  = computer  costs  + postage  and  handling  + network 

overhead 

= $4.18  + $10.00  + network  overhead 
= $14.18  + network  overhead 


CONTENTS— LP1 107 
pages 

1 Identification  § Abstract 

3 User  Instructions 

5-15  I/O 

17  Cost — Contents 
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DESCRIPTIVE  TITLE  UNIVAC  1107  PERT/COST,  PERT/TIME  System 

CALLING  NAME  PERT  (library  tape) 

INSTALLATION  NAME  The  University  of  Notre  Dame  Computing 

Center 


AUTHOR(S)  AND  UNIVAC  Division  of  Sperry  Rand  Corpora- 

AFFILIATION(S)  tion 

LANGUAGE  SLEUTH  II  and  COBOL 


COMPUTER  UNIVAC  1107 


PROGRAM  AVAILABILITY  Listings  available 

CONTACT  Elizabeth  Hutcheson,  EIN  Technical 

Representative,  Computing  Center, 
University  of  Notre  Dame,  Notre  Dame, 
Ind.  46556 
Tel.  (219)  283-7784 

FUNCTIONAL  ABSTRACT 

The  UNIVAC  1107  PERT  System  provides  for  integrated  time  and 
cost  planning  and  control  of  research  and  development  programs 
through  implementation  of  the  "work  package”  costing  concept 
of  the  Department  of  Defense/National  Aeronautics  and  Space 
Administration.  The  system  is  composed  of  two  major  program 
modules,  PERT/COST  and  PERT/TIME,  which  generate  reports  for 
the  project  being  analyzed.  These  reports  include  activity 
and  event  reports,  a Work  package/Activity  listing,  a Charge 
number  analysis,  etc.,  from  PERT/TIME,  and  reports  on  the 
structure  of  labor  and  material  costs  from  PERT/COST. 


REFERENCES 

PERT/COST  General  Reference  Manual 3 (UP-4013),  (UNIVAC  Division 
of  Sperry  Rand  Corp. , N.Y.). 

UNIVAC  1107/1108  PERT  and  CPM:  Techniques  in  the  Project  Manage- 

ment, (UP  3952),  (UNIVAC  Division  of  Sperry  Rand  Corp.,  N.Y.). 

Available  through  the  local  UNIVAC  representative  or  through  the 
EIN  Office  at  the  cost  of  reproduction  and  mailing. 
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USER  INSTRUCTIONS 

Potential  users  are  directed  to  the  references  listed  below  for 
a full  discussion  of  the  options  and  constraints  in  effect. 

REFERENCES 

PERT/COST  General  Reference  Manual , (UP-4013),  (UNIVAC  Division 
of  Sperry  Rand  Corp.,  N.Y.). 

UNIVAC  1107/1108  PERT  and  CPM:  Techniques  in  the  Project  Manage- 

ment, (UP  3962),  (UNIVAC  Division  of  Sperry  Rand  Corp.,  N.Y.). 

Available  through  the  local  UNIVAC  representative  or  through  the 
EIN  Office  at  the  cost  of  reproduction  and  mailing. 
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SAMPLE  INPUT  and  SAMPLE  OUTPUT 

Sample  I/O  is  included  in  the  references  listed  in  the  USER 
INSTRUCTIONS;  interested  persons  are  directed  to  these  documents. 
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COST  ESTIMATE 

See  references  listed  in  USER  INSTRUCTIONS. 
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CALLING  NAME 
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AUTHOR(S)  AND 
AFFILIATION(S) 


LANGUAGE 
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000  0058 


Inquirer  II  System  for  Content 
Analysis 

I/II 

Washington  University 
Computing  Facilities 

J.  Philip  Miller 
Washington  University 
Computing  Facilities 

PL/ 1 


COMPUTER 
PROGRAM  AVAILABILITY 


CONTACT 


S/360  under  OS 

Source  listings  and  complete  documenta- 
tion available  from  Documentation 
Librarian,  Computing  Facilities,  Box 
1152,  Washington  University,  St. 

Louis,  Mo.  63130 

J.  Philip  Miller,  Computing  Facilities, 
Box  1152,  Washington  University, 

St.  Louis,  Mo.  63130 

Tel.:  (314)  863-0100  ext.  4041 


FUNCTIONAL  ABSTRACT 

The  Inquirer  II  is  a set  of  computer  programs  comparable  to, 
but  more  flexible  than,  its  predecessor,  the  General  Inquirer, 
developed  by  Stone  and  his  colleagues  at  Harvard.  The  original 
version  of  the  General  Inquirer  System  was  designed  for  prob- 
lems encountered  in  the  content  analysis  of  textual  and  verbal 
data.  The  General  Inquirer  was  implemented  for  the  IBM  7090— 
7094  computer  along  with  the  IBM  1401  computer.  A later 
version  of  the  General  Inquirer  was  designed  by  Psathas  and 
Miller  to  be  used  only  with  an  IBM  1401  computer  with  an  IBM 
1311  disk  drive.  Stone  originally  described  the  General  In- 
quirer as  "a  set  of  computer  programs  to  (a)  identify,  sys- 
tematically within  text,  instances  of  words  and  phrases  that 
belong  to  categories  specified  by  the  investigator;  (b)  count 
occurrences  and  specify  co-occurrences  of  these  categories; 

(c)  print  and  graph  tabulations;  (d)  perform  statistical  tests; 
(e)  sort  and  regroup  sentences  according  to  whether  they  con- 
tain instances  of  a particular  category  of  combination  of  cate- 
gories." The  Inquirer  II  contains  these  capabilities  and  also 
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allows  for  more  elaborate  analysis  of  the  data.  The  I / 1 1 is 
able  to  make  more  elaborate  contextual  searches  of  the  data 
and  provide  more  options  to  the  potential  users.  These  options 
are  described  in  detail  in  the  Inquirer  II  Programmer’s  Guide . 

Content  analysis  may  be  defined  as  a research  technique  which 
includes  a systematic  identification  of  theoretically  relevant 
constructs  in  textual  data.  Content  analysis  is  usually  per- 
formed so  that  inferences  can  be  made  about  the  source  or 
originator  of  the  message,  the  message  itself  or  the  intended 
receiver  of  the  message.  The  investigator  communicates  the 
constructs  and  the  rules  by  which  they  may  be  identified  within 
the  corpus  of  text  by  means  of  dictionary.  This  dictionary 
is  either  one  of  his  own  construction  or  one  which  has  been 
utilized  in  previous  research. 

REFERENCES 

Miller,  J.  Philip,  editor,  Inquirer  II  Programmer’s  Guides  2nd 
Edition,  1970,  Washington  University,  (Available  from 
Documentation  Librarian,  Computing  Facilities,  Box  1152, 

Washington  University,  St.  Louis,  Mo.  for  $5.00) 

Stone,  P.J. , Dunphy,  D.C.,  Smith,  M.S.,  and  Ogilvie,  D.M.  | 

The  General  Inquirer:  A Computer  Approach  to  Content  *' 

Analysis , Cambridge,  Mass.,  The  MIT  Press,  1966. 
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USER  INSTRUCTIONS 

The  primary  inputs  to  the  system  are  the  data  to  be  analyzed 
and  a dictionary  of  concepts . 

The  major  task  in  using  the  Inquirer  II  system  is  the  creation 
of  a dictionary  of  content  analysis  categories,  called  con- 
cepts, A concept  consists  of  a number  of  language  signs  that 
together  represent  a variable  in  the  investigator's  theory. 

The  Sample  Output  appended  gives  a general  idea  of  the  process 
of  presenting  the  data  and  formulating  the  dictionary  of  con- 
cepts. A thorough  understanding  for  the  user  will  be  obtained 
by  sending  for  the  complete  documentation,  in  particular  the 
Inquirer  II  Programmer  ’s  Guide  . 1 

REFERENCES 

1.  Miller,  J.  Philip,  editor,  Inquirer  II  Programmer’s  Guide , 
2nd  Edition,  1970,  Washington  University,  (Available  from 
Documentation  Librarian,  Computing  Facilities,  Box  1152, 
Washington  University,  St.  Louis,  Mo.  for  $5.00). 
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SAMPLE  INPUT 


QQA004I  * HEW  TITLE  ENCOUNTERED 


000  0058 


$Renee»s  delusional  spates  fros  Autobiography  of  a Schizophrenic  Girl,  In  Landis  p 182-3$ 

«P15» 

<p1>  Very  soon  after  the  beginning  of  analysis  I understood  that  sy  fear  was  a cover  for  guilt,  a quilt  infinite  and 
auful*  During  the  early  sessions,  sasturbatlon  and  the  hostility  I harbored  toward  everyone  sensed  to  lie  at  the  bottos* 
I literally  hated  people,  without  knowing  why*  In  dreass  and  frequently  in  waking  fantasies  I constructed  an  electric 
sachlne  to  blow  up  the  earth  and  everyone  with  it.  This  was  ry  greatest,  sost  terrible  revenge* 

$Renee»s  delusional  spates  fros  Autobiography  of  a Schizophrenic  Girl,  in  Landis  p 182*3$ 

<p1> 

«P15» 

QQA002I  ♦ BEGINNING  OP  NEW  DOC0BENT  OP  LEVEL  1 


<p2>  Later,  considering  then  appropriate,  I no  longer  felt  guilty  about  these  fantasies,  nor  did  the  guilt  have  an 
actual  object  • It  was  too  pervasive,  too  enorsous,  to  be  founded  on  anything  definite,  and  it  desanded  punishsent*  The 
punlshsent  was  indeed, horrible,  sadistic  - — it  consisted,  fittingly  enough,  of  being  guilty*  For  to  feel  oneself  guilty 
is  the  worst  that  can  happen,  it  is  the  punlshsent  of  punishsents.  Consequently,  I could  never  be  relieved  of  it  as 
though  I had  been  truly  punished*  Quite  the  reverse,  I felt  sore  and  sore  guilty,  lsseasurably  guilty.  Consequently,  I 
sought  to  discover  what  was  punishing  ne  so  dreadfully,  what  was  Baking  se  so  guilty* 


6/70 


5 


000  0058 


000  0058 


EDUCATIONAL  INFORMATION  NETWORK 


EDUCOM 


000  0058 


SAMPLE  OUTPUT 


!> 


KWIC  of  data  file 

other  beings,  A foraidable  interdependence  bound  all  men  under  the  scourge  of  culpability.  Everyone  F15* 
f it  as  sotie  vast  world-like  entity  encoapassinq  all  men.  At  the  top  were  those  who  gave  orders,  who  F15* 
were  guilty.  Since  every  nan  was  responsible  for  all  other  men,  each  of  his  acts  had  a repercussion  F15* 
**********  3 INSTANCES  of  All 


s desk  like  a puppet,  separated  fron  everything,  alone  under  a blinding  light,  waving  his  arms  like  F15* 
**********  1 INSTANCES  OF  Alone 


never  deliver  ae  of  the  load.  Because,  as  I have  already  said,  the  lost  dreadful  punishaent  was  to  a F15* 
**********  1 INSTANCES  OF  Already 


ty  about  these  fantasies,  nor  did  the  quilt  have  an  actual  object  . It  was  too  pervasive,  too  enormo  F15* 

and  frequently  in  waking  fantasies  I constructed  an  electric  aachine  to  blow  up  the  earth  and  everyo  F15* 

of  ay  words  seeaed  strange.  Every  now  and  then,  an  innner  Voice  interrupted  sneeringly,  "Ah,  Ah!"an  F15* 

**********  3 INSTANCES  OF  An 


Very  soon  after  the  beginning  of  analysis  I understood  that  ay  fear  was  a cover  for  F15* 
1 INSTANCES  OF  Analysis 


It  was  only  when  I was  near  "Haaa,"  ay  analyst,  that  I felt  a little  better.  ,,,I  saw  the  P 1 5* 
1 INSTANCES  OF  Analyst 


ay  fear  was  a cover  for  guilt,  a guilt  infinite  and 
tructed  an  electric  aachine  to  blow  up  the  earth  and 
11 y hated  people,  without  knowing  why.  In  dreams  and 
oo  enoraous,  to  be  founded  on  anything  definite,  and 
an  innner  voice  interrupted  sneeringly,  "Ah,  AhP'and 
n truly  punished.  Quite  the  reverse,  I felt  aore  and 
ndependence  of  each  part  that  inspired  such  fear  and 
o relate  what  had  happened  sine  e the  last  visit  and 
d awful.  During  the  early  sessions,  aasturbation  and 
ved  it  in  the.  telling.  But  the  sound  of  ay  voice  and 
th,  then  the  nose,  then  the  cheeks,  than  one  eye  and 
everything  was  there,  posed,  congealed,  stupid.  And 
diculous.  "Ah,  ah!  then  the  teacher  said,  said,"  and 
he  aeaning  of  ay  words  seeaed  strange.  Every  now  and 
y,  aboainable,  intolerably  guilty,  without  cause  and 
a blinding  light,  waving  his  aras  like  a aaniac.  And 
**********  16  INSTANCES  OF  And 


awful.  During  the  early  sessions,  aasturbation  F15+ 
everyone  with  it.  This  was  ay  greatest,  most  to  F15* 
frequently  in  waking  fantasies  I constructed  an  P 1 5* 
it  denanded  punishment.  The  punishaent  was  inde  F 15* 
aockingly  repeated  what  I had  said. 
aore  guilty,  iameasurably  guilty.  Consequently,  F15* 
prevented  ay  recognizing  her  even  though  I knew  F15+ 
relived  it  in  the  telling.  But  the  sound  of  ay  F15* 
the  hostility  I harbored  toward  everyone  seeaed  F15* 
the  aeaning  of  ny  words  seeaed  strange.  Every  n FI 5* 
the  other.  Perhaps  it  was  this  independence  of  F15* 
the  terror,  the  aad  anguish,  aounted  in  ne.  F15* 
the  voice  dwelt  stiltedly  on  “said,  said. "I  str  F15* 
then,  an  innner  voice  interrupted  sneeringly,  " FI 5* 
without  votive.  Any  punishaent,  the  very  worst,  FIS* 
I saw  ay  little  sister,  rolling  on  the  kitchen  F15* 


osed,  congealed,  stupid.  And  the  terror,  the  aad  anguish,  aounted  in  ae.  FI 5* 

**********  i INSTANCES  OF  Anguish 


erably  guilty,  without  cause  and  without  aotive.  Any  punishaent,  the  very  worst,  could  be  iaposed  on  F15* 
**********  i INSTANCES  OF  Any 
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BEGIN  COMPILATION  OP  SOURCE  PROGRAM 

' • AGE_TI1E«01. 

• SOM  PSYCH  REP-02. 

• BODY_PARTS=02,03. 

• INT  BOY  PTS-02, 03,04. 

- • EXT-BOY*’PTS«02,03,05. 

• GEN  BDY~PTS*02, 03,06. 

• SOM  COND-O  2 ,07. 

• HEALTH-02,07,08. 

• ILLNESS- 0 2, 07  #09. 

• DEATH-02,07 ,10. 

• TREATMENTS-! 1. 

• TESTS- 12. 

• N0N_SPEC  REP-13. 

• OBJ  ORIENT-14. 

• RETAIN- 14, 15. 

• EXPELL-14,  16. 

• ATTAIN- 14,17. 

• GLNDER-18. 

• BALE-18, 19. 

• VEHALP- 10,20. 

• NEUTER-18,21. 

• AUTH  PIG-22. 

• TREAT  PIG-22,23. 

• LEGAL  PIG-22,24. 

• SENSE-25. 

• VISUAL- 25,26. 

• AUDITOR Y-25, 27. 

• GUSTATORY- 25» 29. 

• OLPACTORY-25,29. 

• DERHAL-25,30. 

• ACTION  NORM-31. 

• PASSIVE-31,32. 

• ACTIVE-31,33. 

• SEXUAL  ACT-34. 

• SEX^ACT-34, 35. 

• P0RE_PLAY- 34,36. 

• PRE_FORE_PLAY-34, 37 . 

• SOCIAL_ACT»30. 

• AGGRESSIVE- 30 ,39. 

• PRIENDLY-39 ,40. 

• XSOLATE-38 , 41. 

• COMMUNICATE- 38, 42. 

• DOMINATED, 43. 

• SUBMIT*  38, 44. 

• HELP-38,45. 

• bIRECTION-46. 

• APPROACH-46,47. 

• AYOID-46, 48 . 

• ACHIEVE-49. 

• SUCCESS-49,50. 

• PAIL-49,51. 

• COG^PROC-52. 

• CONTEMPLATE-52, 53. 

• COG  AWARE-52,54. 

• UNCERTAIN-52,55. 

• DECIDE- 52,56. 

• REGARD-57. 

• POSITIVE-57,58. 

• NEGATIVE-57,59. 

• PORTUNE-60. 

• GOOD.PORT-60,61. 

• BAD  FORT-60,62. 
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Dictionary  Compiler--  List  of  Concept 
Name  Paragraph  and  start  of  Entry  Name  Paragraph 


AH0ER=6  3 , 64 • 

LOVE*63, 65. 

H ATE=6  3 , 66  • 

PEAR=63, 67. 

HAPP Y-6  3 , 6 8* 

SADa63f69. 

DISTRBSS=63,70. 

ENOTION_POS*63,  71. 

EMOTION  NEG-63,72. 

UNDEPINED  NEED-73. 

OBSTACLES=74. 

O0ST_PRES=74, 75. 

STRUGGLED, 76. 

SELP‘77. 

SPEC^OTHERS-70. 

NON_SPEC  OTHERSa79. 

SENT^LENGTH  « 90. 

LONG  SENT  - 90,91. 

SHORT_SENT  * 90,92. 

SBNT_T YPE  ■ 93. 

QUESTION  * 93,94. 

DECLARE  « 93,95. 

ABOMINABLE  : NEGATIVE. 

ABOUT  ! IP  WORD  (-4,-2)  ■ 'UP*  G WORD  (-3,-1)  ■ * AND1 
THEN  HEALTH 

ELSE  IP  WORD  (-2,-1)  - ‘BRING' | 

WORD  (-2,-1)  - ' BROUGHT'  ( 

WORD  (-2,-1)  « 'COME' 

THEN  SUCCESS 

ELSE  IP  WORD  (1,2)  ■ 'TO' 

THEN  ACTIVE 
ELSE. 

ACT*  IP  WORD  (-2,-1)  « 'SEXUAL*  | 

WORD  (-2,-1)  . 'SEX' 

THEN  SEX  ACT 

ELSE  IP  WORD  <t,1)  - 'UP* 

THEN  AGGRESSIVE 

ELSE  IP  WORD  (1,1)  ■ 'UPON' 

THEN  ACTIVE 
ELSE  ACTIVE. 

ALL*  IP  ORDER  (WORD  (-3,-2)  ■ 'PREE',  WORD  (-2,-1)  * 'POR'1 

THEN  AGGRESSIVE  1 

ELSE  IP  WORD  (1,3)  ■ 'OVER* 


THEN  ACHIEVE 
ELSE. 

ALONE*  ISOLATE. 

ANALYSIS*  CONTEMPLATE. 

ANALYST*  TPEAT_PIG*  NEUTER. 

ANGUISH*  SAD*  EMOTION  NEG. 

ANY*  NON  SPEC_REP. 

ANYTHING*  NON_SPEC_REP. 

APPARENT*  DECIDE. 

APPARENTLY: 

APPROPRIATE:  POSITIVE. 

ARM*  EXT_BDY_PTS. 

ARMS*  IP  WORD  (-3,-1)  ■ 'OPEN' 

THEN  PRIENDLY 

ELSE  IP  WORD  (-3,^2)  - 'UP'  G WORD  (-2,- 
THEN  AGGRESSIVE 
ELSE  EXT_BDY  PTS. 

ASSOCIATE*  IP  WORD  (-2,-1)  « 'AN*  | 

WORD  (-2,-1)  ■ 'THE' 

THEN 

ELSE  CONTEMPLATE. 

A'f!  If  «ORD  (-3,-1)  ■ 'PLY*  | WORD  (-3,-1)  ■ 

THEN  AGGRESSIVE 


1)  ■ 'IN' 


'FLEW' 


O 

O 

o 

o 

o 
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Portion  of  Entry  Name  Paragraph  of  Dictionary 


tLSt.  if  WUKU  * •MULL* 

THBH  HEALTH 
ELSE. 

FELT;  IF  HOBO  (1,5)  - 'FOR* 

THEN  (LOVE;  EMOTION  POS) 

ELSE  IF  HOBO  (1,2)  « • NELL* 

THEN  HEALTH 
ELSE. 

FIGURES  IF  WORD  (-2,-1)  * *A'  | WORD  (-2,-1)  « •TEE1  | 

fORD  (-2,-1)  « 1 THIS 1 | WORD  (-2,-1)  * 'THESE*  f 
WORD  (-2,-1)  - 'THOSE* 

THEN 

ELSE  IF  WORD  (1,3)  « *OOT* 

THEN  DECIDE 
ELSE  CONTEMPLATE. 

FITl  IF  WORD  (-2,-1)  - 1 THROE*  \ WORD  (-5,-1)  « *HAVE*  I 

BOR*'  (-5,-1)  ■ 'HID* 

THPN  irtrjD*c«¥W* 

ELSE  IF  WORD" (1,2)  - *IN*  S WORD  (2,3)  * ‘WITH' 

THEM  SUBMIT 
ELSE. 

FOUND*  IF  WORD  0,2,  * *O0T* 

THEN  SUCCESS 
ELSE  GOOD  FORT. 

FROM  1 IF  WORD  (-3,-1)  - 'SHRANK'  | WORD  (-3,-1)  - 'SHRINK*  | 

WORD  (-3,-1)  - 'SHRUNK'  | ORDER (WORD  (-3,-1)  - 'GET', 

WORD  (-2,-1)  * 'AWAY')  | WORD  (-3,-1)  « 'REACH'  | 

WORD  (-3,*  1)  - *RAN'  | WORD  (*-3,-1)  « *RON' 

THEN  AVOID 

ELSE  IF  WORD  (-2,-2)  * * GET*  6 WORD  (-1,-1)  * ‘BACK' 

THEN  APPROACH 
ELSE. 

GAVE*.  IF  WORD  (1,2)  - 'IN'  | WORD  (1,3)  • 'OP'  \ WORD  (1,5)  « *WAY' 

THEN  SUBMIT 
ELSE  EXPELL. 

GETS  IF  WORD  (1,3)  - 'AROUND'  | WORD  (1,2)  * 'OP' 

THEN  ACTIVE 

ELSE  IF  WORD  (1,3)  « 'AWAY'  | WORD  (1,3)  • 'OUT'  \ 

WORD  (1,3)  * 'OFF' 

THEN  AVOID 

ELSE  IF  WORD  (1,2)  « 'BACK'  | WORD  (1,2)  - 'IN'  ( 

WORD  (1*2)  « 'ON*  | WORD  (1,1)  * 'TO'  | 

WORD  (1,1)  * 'AROUND'  S WORD  (2,2)  - 'TO'  | 

WORD  (1,1)  • 'DOWN*  6 WORD  (2,2)  * 'TO' 

THEN  APPROACH 

ELSE  IF  ORDER  (WORD  (1,2)  * 'HANG',  WORD  (2,3)  -'OF')  | 

ORDER (WORD  (1,3)  ® *TO*,  WORD  (2,4)  - 'BOTTOM', 

WORD  (3,5)  * • OF' ) ) WORD  (1,2)  - 'THROUGH'  | 

WORD  (1,1)  » 'AWAY'  E WORD  (2,2)  * 'WITH* 

tupii  cnrrpqq 

ELSE  IF  WORD  (1,1)*  'HOLD'  G WORD  (2,2)  - 'OF'  | 

ORDER  (WORD  (1,4)  * *IN',  WORD  (2,5)  * *WAY«) 

THEN  AGGRESSIVE 

ELSE  IF  ORDBR(WORD  (1,2)  « 'WIND',  WORD  (2,3)  « 'OF')  ) 

ORDER  (WORD  (1,3)  « 'THING',  WORD  (2,4)  * 'ACROSS*, 

WORD  (3,5)  * 'TO'  ) 

THEN  COMMUNICATE 

ELSE  IF  WORD  (1,1)  « 'RID'  G WORD  (2,2)  « 'OF* 

THEN  EXPELL 

ELSE  IF  WORD  (1,1)  * 'THE'  G WORD  (2,2)  * 'BETTER'  G 
WORD  (3,3)  « 'OF' 

THEN  DOMINATE 

ELSE  IF  WORD  (1,1)  « 'IN'  G WORD  (2,2)  « 'ON* 

THEN  FRIENDLY 

ELSE  IF  WORD  (1,1)  « 'OVER' 

THEN  OBST  PRES 
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CONCEPTS'  Listing  of  Tagged  File 

Renee's  delusion*!  systei  fro«  Autobiography  of  a Schizophrenic  Girl 


ID  FIELD  OF  LEVEL  2 ■ FI5 

ID  FIELD  OF  LEVEL  1 * pi 


SENTENCE  1?  22  WORDS 

CURRENT  ID  pi 


Terry 

soon 

AGEJTIHE 

alias 

ilia 

beginning 

AGE_TIHB 

fiX  analysis 

COG_PROC 
CONTEMPLATE 

1 iinl£££t025  that 

SELF  NON_SPEC_REF 

■y 

SELF 

fear 

EMOTION  NEG 

EMOTION" 

FEAR 

A 

fi am  X2J£ 

guilt,  a 

EMOTION  NEG 
EMOTION 
FEAR 

guilt 

EMOTION  NEG 

EMOTION 

FEAR 

lnilnlii  ana 

awful 

REGARD 

NEGATIVE 


SENTENCE  2;  18  WORDS 

C0RRBNT  ID  pi 


Batina 

ibs 

satli 

ssAsisnsx 

Masturbation 

and 

llis 

hostility 

PRE  FORE_PLAT 
SEXOAL^ACT 

EHOTXON.NEG 

ANGER 

EMOTION 

I 

SELF 


bat bats! 


toward 

DIRECTION 

APPROACH 


everyone 

assisa 

is 

lie 

at 

ibs 

bottoi 

NON_ SPEC^OTHERS 

SOCIAL  ACT 

GENDER 

AGGRESSIVE 

NEUTER 

COMMUNICATE 

SENTENCE  3;  7 WORDS 

CURRENT  ID  pi 


1 literacy  hated 

SELF  EMOTION  NEC 

ANGER 
EMOTION 


people, 

NON.SPBC  OTHERS 

GENDER 

NEUTER 


knowing  why 

COG_AWARE 
DECIDE 
COG.PROC 


SENTENCE  4;  21  WORDS 

CURRENT  ID  pi 


In  dreais  and 

UNDEFINED  JIBED 


Xiaaasp ill  in 


aaiiiia  Xma§is§  i 

SELF 


constructed  an 

ACTIVE 

ACTION„NORH 


a l ogtrjc  Machine  ^ 


blow  j|o 

SOCIAL.ACT 

AGGRESSIVE 


SftLih 


apd  everyone 

NOM_ SPEC  OTHERS 

GENDER 

NEUTER 


jflfch 


it 

NON_SPEC_REF 


i 


SENTENCE  5;  7 WORDS 

CURRENT  ID  pi 


this  V&S  * T 

SELF 


greatest,  i^t 

REGARD 

POSITIVE 


terrible  tfivejjge 

REGARD 

NEGATIVE 


i. 
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Tabulation  of  tagged  file 

enee’a  delusional  afstes  froa  Autobiography  of  a Schisophrenic  Girl,  in  Landis  p 182-3 


C0PCEPT  NINE 

TOTAL 

WORD 

CONCEPT 

HD  - COHC 

SENTEHCE 

SBHTEHCE 

SRTC  - COHC 

FREQ 

IHDEX 

IHDEX 

IHDEX 

FREQ 

IHDEX 

INDEX 

75 

57 

29 

5 

5 

AUDITOR! 

GUSTATORY 

OLFACTORY 

DERMAL 

PASSIVE 


ACTIVE 

SEX^ACT 

PORE.PLAY 

1 

1.33 

1.75 

3. 44 

1 

20.00 

20.00 

PRE.rORE.PLAY 

1 

1.33 

1.75 

3.44 

1 

20.00 

20.00 

AGGRESSIYE 

i-RIEHDLY 

ISOLATE 

2 

2.66 

3.50 

6.89 

2 

40.00 

40.00 

COMMUNICATE 

DOMINATE 

SUBMIT 

HELP 

1 

1.33 

1.75 

3.44 

1 

20.00 

20.00 

APPROACH 

1 

1.33 

1.75 

3.44 

1 

20.00 

20.00 

AVOID 
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Tabulation  of  tagged  fil'' 

Renee's  delusional  systt j froa  Autobiography  of  a Schizophrenic  Girl,  in  Landis  p 182-3 


CONCEPT  HARE 

TOTAL 

WORD 

CONCEPT 

WD  - CONC 

SENTENCE 

SENTENCE 

SNTC  - CONC 

FREQ 

INDEX 

75 

INDEX 

57 

INDEX 

29 

FREQ 

INDEX 

5 

INDEX 

5 

SUCCESS 

FAIL 

CONTEMPLATE 

* 

1 

1.33 

1.75 

3.44 

1 

20.00 

20.00 

C0G_ AW  IRE 

1 

1.33 

1.75 

3.44 

1 

20.00 

20.00 

UNCERTAIN 

DECIDE 

1 

1.33 

1.75 

3.44 

1 

20.00 

20.00 

POSITIVE 

1 

1.33 

1.75 

3.44 

1 

20.00 

20.00 

NEGATIVE 

2 

2.66 

3,50 

6.89 

2 

40.00 

40.00 

GOOD.FORT 

BAD.FORT 

ANGER 

l 

2.66 

3.50 

6.89 

2 

40.00 

40.00 

LOVE 

HATE 

FEAR 

3 

4.00 

5.26 

10.34 

1 

20.00 

20.00 

HAPPY 

SAD 

DISTRESS 
EMOTION  POS 
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COST  ESTIMATE 

It  is  difficult  to  offer  a precise  cost  estimate  for  a given 
task.  A full  treatment  of  a 5000-word  text  would  cost  approxi- 
mately $500  . 


CONTENTS — I /II 
pages 

1—  2 Identification  § Abstract 

3 User  Instructions 

5-12  I/O 

13  Cost — Contents 
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DESCRIPTIVE  TITLE 
CALLING  NAME 
INSTALLATION  NAME 

AUTHOR ( S ) AND 
AFFI LIATION(S) 

LANGUAGE 

COMPUTER 

PROGRAM  AVAILABILITY 


CONTACT 


Basic  Information  Retrieval  System 
BIRS 

Michigan  State  University 
Information  Systems  Laboratory 

John  F.  Vinsonhaler,  Ph.D. 

John  M.  Hafterson 
Stuart  W.  Thomas,  Jr. 

Michigan  State  University 

USAS I Full  FORTRAN 

CDC  3600,  CDC  6500,  CDC  6600 
IBM  360  G-level 
GE  600  Series,  others 

Decks  and  listings  are  currently 
available  at  cost  from  Michigan  State 
University  for  non-profit  institutions. 

The  program  is  distributed  to  profit- 
making institutions  by  Hygain  Tech- 
nologies, 65  Whitney  Street,  Westport, 
Conn . 

Maintenance  for  all  users  is  provided 
by  Hygain  Technologies . 

Dr.  John  F.  Vinsonhaler,  Director, 
Information  Systems  Laboratory, 

309  Computer  Center,  Michigan  State 
University,  East  Lansing,  Mich.  48823 
Tel.:  (517)  353-7284 


FUNCTIONAL  ABSTRACT 

BIRS  is  a general  purpose  system  of  programs  for  the  behavioral 
^sciences  and  education.  Essentially,  BIRS  is  a set.  of  funda- 
, mental  program  modules  designed  to  allow  scholars  and  scientists 
to  use  their  own  locally  based  computer  to  construct  and  main- 
tain a variety  of  information  systems.  Search,  maintenance, 
and  index  creation  are  performed  automatically.  Thus,  BIRS 
may  be  viewed  as  a set  of  essential  tools ; the  research  worker 
may  use  these  tools  to  construct  the  type  of  information  system 
which  best  meets  his  immediate  needs. 
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It  is  not  economically  practical  for  individual  educators  and 
social  scientists  to  develop  their  own  special  purpose  program- 
ming system;  they  must  share  the  costs  of  system  developments 
by  exchanging  programs.  General  purpose  systems  like  BIRS 
(with  machine,  data,  and  application  independent  programming) 
are  ideally  suited  for  free  exchange  among  computer  users. 

REFERENCES 

Vinsonhaler,  J.F.,  Ed.,  Technical  Manual  for  the  Basic  Indexing 
and  Retrieval  System^  BIRS  2.0 , Michigan  State  University, 
East  Lansing,  Mich.,  1968. 

Vinsonhaler,  J.F.,  and  Hafterson,  J.M.,  Eds.,  Technical  Manual 
for  the  Basic  Indexing  and  Retrieval  System,  Appendix  I, 

BIRS  2.5 , Michigan  State  University,  East  Lansing,  Mich., 
1969. 

Thomas,  Jr.,  S.W.,  and  Vinsonhaler,  J.F.,  Eds.,  Technical  Manual 
for  the  Basic  Information  Analysis  System , BIRS  Technical 
Manual , Appendix  II , BIAS  1.0 , Michigan  State  University, 
East  Lansing,  Mich.,  1969. 

Documentation  is  available  at  cost  from  the  Information  Systems 
Laboratory  and  from  Hygain  Technologies. 
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USER  INSTRUCTIONS 

See  the  references  cited  below.  The  nature  and  complexity  of 

the  system  can  be  studied  in  brief  with  the  help  of  the  samples 

of  input  and  output  following. 

REFERENCES 

Vinsonhaler , J.F.,  Ed.,  Technical  Manual  for  the  Basic  Indexing 
and  Retrieval  System 3 BIRS  2,0 , Michigan  State  University, 
East  Lansing,  Mich.,  1968. 

Vinsonhaler,  J.F.,  and  Hafterson,  J.M.,  Eds.,  Technical  Manual 
for  the  Basic  indexing  and  Retrieval  System , Appendix  J, 

BIRS  2,5 , Michigan  State  University,  East  Lansing,  Mich., 
1969. 

Thomas,  Jr.,  S.W.  and  Vinsonhaler,  J.F.,  Eds.,  Technical  Manual 
for  the  Basic  Information  Analysis  System , BIRS  Technical 
Manual , Appendix  IT,  BIAS  1,0 , Michigan  State  University, 

East  Lansing,  Mich.,  1969. 

Thomas,  Jr.,  S.W.’,  Hafterson,  J.M,  , and  Vinsonhaler,  J.F.,  Some 
Observations  on  the  Structure  and  Operation  of  an  Information 
Analysis  System:  Paper  of  the  Institute  No,  623  (Michigan 
State  University,  East  Lansing,  Mich.,  1969). 

Vinsonhaler,  J.F.,  Hafterson,  J.M.,  and  Thomas,  Jr.,  S.W.,  "BIRS, 
A General  Purpose  Information  Management  System  for  Education 
and  Social  Science,"  Proceedings  of  SHARE  XXXIV , (1970). 

Documentation  is  available  at  cost  from  the  Information  Systems 

Laboratory  and  from  Hygain  Technologies. 
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SAMPLE  INPUT  AND  OUTPUT 

Information  Storage:  Creating  the  Information  File 
INPUT  FOR  BIRS  PROCESSING 


5C$  I FMP 

5C$DELIMITER  IS  t 
}C$NEW  FILE 
«$ABSTRACT 
ESTATE  MICHIGAN 
^PUBLIC  LAW  89-10 

*TITLE  AUGMENTATION  OF  SPECIAL  EDUCATION  AND  PRE-EDVOCAT I ONAL  TRAINING 
PROGRAMS. 


^DESCRIPTORS  EMOTIONALLY  DISTURBED,  READING  DISABILITY, 
PREVOCATIONAL  EDUCATION,  RESIDENTIAL  SCHOOL 
^TOTAL  CHILDREN  90 
^TOTAL  EXPENDITURE  $47,000 

^INSTRUCTION  SALARIES  = $39,658,  MATERIALS  = $1,542,  OTHER  = O 
^PROJECT  PARTICIPANTS 

TMR  EMR  HH 

NUMBER  OF  TEACHERS  530 

OTHER  PERSONNEL  002 


^SUMMARY 

THIS  PROJECT  IS  TO  REDUCE  THE  NUMBER  OF  GRADE  LEVELS  PER  CLASSROOM 
IN  OUR  SCHOOL  PROVIDE  GREATER  INDIVIDUALIZATION  OF  INSTRUCTION  WITHIN 
THE  CLASSROOMS  AND,  TO  EXPOSE  OUR  EMOTIONALLY  DISTURBED  CHILDREN  TO 
GREATER  SOCIALIZATION  PROGRAMS 


other  data  elements  preceded  by  55  $ ABSTRACT 


»<$END 


OUTPUT  FROM  BIRS  PROCESSING 


INFORMATION  FILE  CONTAINING  DATA  RECORDS 
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Information  Indexing:  Preparing  a Key  Word  Index 
INPUT  FOR  BIRS  PROCESSING 

}«$PIP 

5{$DELIMITER  t 

5S$USE  FIELDS 

PUBLIC  LAW, STATE 
><$BOOK  INDEX 
JC$END 

OUTPUT  FROM  BIRS  PROCESSING 


Index  for  the  Information  File 


Printed 


************************* 


(PUBLIC  LAW) 


89-10 


89-313 


TITLE  IV 


1,  22-60 

2-21,  100-350 

50,  53,  500-650 


(STATE) 


ALABAMA 


200-250,  301 


ALASKA 


10-11,  22 


continued 
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Information  Retrieval:  Preparing  a List  of  Particular  Types  of  Projects 


INPUT  FOR  BIRS  PROCESSING 


}{$DFSP 

5{$DELIMITER  / 

J{$QUESTION 

ESTATE , M I CH I GAN . AND . ( #DESCR I PTORS , EMOT I ONALL Y D I STURBED . OR . 
EMOTIONALLY  HANDICAPPED) 

5{$END 

}{$IFRP 

5{$DELIMITER  / 

!{$PRINT  LINES  1 TO  5 
}!$END 


OUTPUT  FROM  BIRS  PROCESSING 


*************************************** 


ABSTRACT  1 RELEVANCE  1.00 
/STATE  MICHIGAN 
/PUBLIC  LAW  89-10 

/TITLE  AUGMENTATION  OF  SPECIAL  EDUCATION  AND  PRE-VOCATIONAL  TRAINING 
PROGRAMS 


ABSTRACT  35  RELEVANCE  1.00 
/STATE  MICHIGAN 
/PUBLIC  LAW  TITLE  IV-A 

/TITLE  IMPROVEMENT  OF  SPECIAL  ASSISTANCE  FOR  EMOTIONALLY  DISTURBED 


SEARCH  REPORT 


Printed 


continued. 
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Information  Analysis:  Preparing  a Statistical  Report 


INPUT’  FOR  BIRS  PROCESSING 


O 

o 

o 

o 

c 

tfl 

<£> 


“$IRPG 

^DELIMITER  t 
5C$DI  MENS  ION 

STATES  = ^STATE,MICHIGAN,HAWAI I,  ILLINOIS, MISSOURI 
S{$  DIMENSION 

PURPOSE  = t I NSTRUCT I ON, SALAR I ES , MATER I AIS , TOTAL(SALAR I ES , MATER I ALS) 

5:$DEFINE  DATA 

COST  = .SUM.* INSTRUCTION 

5:$TABLE 

ALLOCATION  OF  FUNDS  FOR  INSTRUCTION  (COST)  = PURPOSE, STATES 


Q 

OUTPUT  FROM  BIRS  PROCESSING 


TABULAR  REPORT 


It'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 


TABLE ALLOCATION  OF  FUNDS  FOR  INSTRUCTION 

DATA COST 

ROWS SALARIES,  MATERIALS,  TOTAL 

COLUMNS-M I CH I GAN,  HAWAII,  ILLINOIS,  MISSOURI 


SECTION  1 OF  1 SECTION(S) 


PAGE  1 


MICHIGAN  HAWAII 


ILLINOIS  MISSOURI 


SALARIES 

MATERIALS 

TOTAL 


80385.00 

4642.00 

85027.00 


69717.00 

826.00 

70543.00 


71800.00 

5600.00 

77400.00 


41154.00 

1011.00 

42165.00 


* * * * * * * 


* * * * * * 


* * * * * 


b'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k  it 
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COST  ESTIMATE 


Unfortunately,  cost  estimates  for  the  sample  program  are  unavailable. 
The  average  cost  for  complete  processing  is  about  $15.00  per 
abstract  per  year  for  most  applications,  including  file  mainten- 
ance, searching,  and  report  generation. 

Charge  to  user  = computer  costs  + network  overhead 

= $15 . 00/abstract  per  year  + network  overhead 


CONTENTS — B I RS 
page 

1—2  Identification  § Abstract 

3 User  Instructions 

5-8  I/O 

9 Cost — Contents 
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DESCRIPTIVE  TITLE 
CALLING  NAME 
INSTALLATION  NAME 


AUTHOR ( S ) AND 
AFFILIATION(S) 

LANGUAGE 


COMPUTER 
PROGRAM  AVAILABILITY 

CONTACT 


FUNCTIONAL  ABSTRACT 

It  frequently  happens  that  two  factor  solutions  are  obtained  in 
a study,  and  the  question  arises  as  to  the  extent  of  similarity. 
Cliff’s1  approach  to  the  problem  is  succinctly  stated  in  the 
abstract  of  his  paper, 

Two  problems  are  considered.  The  first  is  that  of 
rotating  two  factor  solutions  orthogonally  to  a 
position  where  corresponding  factors  are  as  similar 
as  possible.  A least -squares  solution  for  trans- 
formations of  the  two  factor  matrices  is  developed. 

The  second  problem  is  that  of  rotating  a factor 
matrix  orthogonally  to  a specified  target  matrix. 

The  present  program  performs  least  squares,  procrustes  rotations 
on  a target  (T)  and  a data  (D)  matrix  following  the  general 
approach  of  Cliff. 

General  Description 

The  mathematical  basis  for  the  program  is  summarized  briefly 
in  the  following  outline. 

continued 


Matching  Factor  Solutions 
MATCHFS 

Office  of  Data  Analysis  Research 
Educational  Testing  Service  (ETS) 

Program  due  to:  R.  Pennell,  ETS 

Adaptation  due  to:  J.  Barone,  ETS 

F4STAT  (Statistically  augmented 
FORTRAN  IV) 

IBM  360/65 

Decks  and  listings  presently  available 

Mr.  Ernest  Anastasio,  Office  of  Data 
Analysis  Research,  Educational  Testing 
Service,  Rosedale  Road,  Princeton, 

N.J.  08540 

Tel.:  (609)  921-9000  ext.  2552 
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Case  I:  Find  an  A and  B such  that  transformation 

(E’E)  = minimum 

where 

E = TA  - DB  . 

A and  B are  given  by 

T’D  = Q 
Q = ArB’ 

where  A , Bf  and  r are  the  Eckart  and  Young2 
decomposition  of  Q . 

Case  II:  Find  a C such  that  transformation 

(EfE)  = minimum 

where 

E = T - DC 

C is  given  by 

C = B *A' 

Case  II  is  the  typical  target-matching  situation  were  T is  held 
fixed  and  D rotated  to  a least-squares  fit. 

The  program  can  handle  matrices  as  large  as  125  rows  (variables) 

X 50  columns. 

REFERENCES 

1.  Cliff,  N.,  "Orthogonal  Rotation  to  Congruence,"  Psychometrika , 
31 , pp.  33-42,  (1966) . 

2.  Eckart,  C.T.,  and  Young,  G.,  "The  Approximation  of  One  Matrix 
by  Another  of  Lower  Rank,"  Psychometrika,  1.  pt>.  211-218, 
(1936). 

3.  Pennell,  R.J.,  and  Young,  F.W.,  "An  IBM  System/360  Program 
for  Orthogonal  Rotation  to  Congruence,"  Behavioral  Science, 

12 , p.  165,  (1967). 
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USER  INSTRUCTIONS 
Card  Preparation 


Problem  Card 


Co lumns 

Parameter 

Format 

Description 

1-  5 

NR 

15 

Number  of  rows  (variables) 

6-10 

NCT 

15 

Number  of  columns  in  target 
matrix  (_<  50) 

11-15 

NCD 

15 

Number  of  columns  in  data 
matrix  (<.  50) 

16-20 

ICASE 

15 

Case  option 

1:  Simultaneous  rotations 

2:  Target  matching 

0:  Both  1 and  2 

21-25 

IFMT 

15 

Format  option 

0:  Use  same  format  for 

target  and  data  matrices 
/ 0:  Read  in  a different 

format  for  the  data  matrix 

Title  Card 

Name  of  problem  in  Cols.  1—80 
Format  Card  for  Target  Matrix 

The  format  specification  may  start  in  any  column.  The  word 
FORMAT  is  not  used. 

Target  Matrix  Cards 

The  program  will  read  the  punched  data,  row  by  row,  according 
to  the  format  specified  for  a row  in  Format  Card  for  Target 
Matrix . 

Format  Card  for  Data  Matrix 

(Omit  this  card  if  IFMT  = 0;  the  program  will  read  the  data 
matrix  using  the  format  specified  in  Format  Card  for  Target 
Matrix.) 

Data  Matrix  Cards 

The  program  will  read  the  punched  data,  row  by  row,  according 
to  the  format  specified  for  a row  in  Format  Card  for  Data  Matrix 
(Format  Card  for  Target  Matrix  if  IFMT  - 0) . 
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System  Control  Cards 
JOB  Card  will  be  prepared 


System  Card 
Co lumns 
1-37 

System  Card 
Co  lumns 

1-19 

System  Card 

Columns 
1-  2 


1 

Contents 

//STEPNAME 

2 

Contents 
//GO . SYSIN 

3 

Contents 

// 


EXEC 


DD 


l 


GITNGO ,NAME=MATCHFS 


* 


Job  Deck 

JOB  Card 
System  Card  1 
System  Card  2 
Problem  Card 
Title  Card 

Format  Card  for  Target  Matrix  May  be  repeated  for 

Target  Matrix  Cards  additional  problems 

Format  Card  for  Data  Matrix  (optional) 

Data  Matrix  Cards  __ 

Blank  Card 
System  Card  3 


•n  ' 

j 

'■*.  *r- 


< 
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SAMPLE  INPUT 

To  illustrate  the  use  of  the  program  some  simple  artificial 
data  were  contrived.  One  factor  solution  describes  four  tests 
in  terms  of  two  factors,  while  the  other  solution  shows  the 
four  tests  in  terms  of  three  factors.  Both  Case  I,  for 
simultaneous  rotations,  and  Case  II,  for  target  matching  are 
illustrated . 

//  JOB  C 

//STEPNAME  EXEC  G I TNGO, NAME=MATCHFS 
/ /GO  . SYS  I N DD  }C 

4 2 3 0 0 

C3F8.3) 


0.700 

0 . 100 

0.800 

0.000 

0 .100 

0.700 

0.000 

0.800 

0.760 

0.320 

0.500 

0.500 

0 . 500 

-0.400 

0.520 

-0.360 

0.500 

0.500 

-0.500 

-0.400 

// 
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SAMPLE  OUTPUT 


CASE  1 SIMULTANEOUS  ROTATIONS 


TRANSFORMATION  FOR  FIRST  MATRIX 


AFTER  ROTATION 


1  2 

1 0.785  -0.619 

2 0.619  0.785 


1  2 
1 0.611  -0.355 

2 0.628  -0.496 

3 0.512  0.488 

4 0.496  0.628 


TRANSFORMATION  FOR  SECOND  MATRIX 


AFTER  ROTATION 


1 

2 

3 


1 2 

0.994  0.059 

0.060  -0.998 

0.086  0.016 


1 2 
1 0.818  -0.267 

2 0.492  -0.476 

3 0.539  0.398 

4 0.433  0.522 


CASE  2 FIRST  MATRIX  AS  A TARGET 


TRANSFORMATION  TO  TARGET 


AFTER  ROTATION 


1 2 

1 0.744  0.662 

2 0.665  -0.747 

3 0.058  0.066 


COEFFICIENTS  OF  CONGRUENCE 
0.9861  0.9741 


1 2 
1 0.808  0.297 

2 0.682  -0.069 

3 0.177  0.646 

4 0.016  0.678 
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COST  ESTIMATE 

The  pricing  algorithm  for  the  Educational  Testing  Service  is 
based  on  a complex  formula  involving  the  amount  of  core  usage, 
card-processing,  tape  and  dedicated  device  usage,  lines  printed, 
and  central  processor  unit  (CPU)  elapsed  time.  Computer  costs 
for  the  job  included  in  the  Sample  Input  wore  $2.30. 

Charge  to  user  * computer  costs  + postage  and  handling  + network 

overhead 

= $2.30  + $5.00  + network  overhead 
= $7.30  + network  overhead 


C0NTENTS— 

pages 

1-  2 Identification  § Abstract 

3-  4 User  Instructions 

5-  6 I/O 

7 Cost — Contents 
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DESCRIPTIVE  TITLE 
CALLING  NAME 


Matrix  Decomposition  for  Points  of  View 
Analysis 

MATDEC 


INSTALLATION  NAME  Office  of  Data  Analysis  Research 

Educational  Testing  Service 

AUTHOR ( S ) AND  J.  Ferris 

AFFILIATION(S)  Educational  Testing  Service 


LANGUAGE  FORTRAN  IV 

COMPUTER  IBM  300/65 


PROGRAM  AVAILABILITY  Deck  and  listings  presently  available 

CONTACT  Mr.  Ernest  Anastasio,  Off.  of  Data  Anal. 

Research,  Educational  Testing  Service, 
Rosedale  Road,  Princeton,  N.J.  08540 
Tel.:  (609)  921-9000  ext.  2552 

FUNCTIONAL  ABSTRACT 


The  purpose  of  MATDEC  is  to  decompose  a rectangular  matrix  (i.e., 
a data  matrix,  X,  dimensioned  number  of  variables  by  number  of 
subjects)  into  three  matrices  U,  T,  and  W,  according  to  Horst's1 
development  (Ref.  1,  pp . 364-382),  where  T is  a diagonal  matrix 
of  eigenvalues  and  U and  W contain  the  corresponding  eigenvectors. 
It  is  intended  as  a first  step  in  Tucker  and  Messick's  approach 
to  an  individual  differences  model  for  multidimensional  scaling.2 

As  is,  MATDEC  will  handle  up  to  100  variables  or  subjects,  which- 
ever is  the  lesser  dimension  of  the  data  matrix.  The  program 
uses  F4STAT  (FORTRAN  IV  Statistical  System)  and,  in  particular, 
the  routine  SDGEXT  to  develop  the  characteristic  roots  and  vectors 
of  the  crossproducts  matrix.  Further  information  about  F4STAT  can 
be  obtained  from  Mr.  Van  Hassel,  Educational  Testing  Service, 

(609)  921-9000,  ext.  2557. 

REFERENCES 

1.  Horst,  P.,  Matrix  Algebra  for  Social  Scientists , (Holt, 
Rinehart  £ Winston,  New  York,  1963). 

2.  Tucker,  L.R.,  and  Messick,  S.,  "An  Individual  Differences 
Model  for  Multidimensional  Scaling,"  Psychometrika,  28,  333— 
367  (1963). 
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USER  INSTRUCTIONS 

Input  Deck 

Title  Card 

* 

Parameters 

Co lumns 

Contents 

j 

NV 

1-  4 

Number 

variables 

\ 

N 

5-  8 

Number  of 

subj  ects 

.{ 

IRC 

9-12 

1:  input 

2:  input 

is  rowwise 
is  columnwise 

* 

IT 

13-16 

Tape  unit 
5 : input 

containing  input 
on  cards 

t 

i— i 

SO 

17-20 

1 : input 

0:  input 

tape  is  to  be  rewound 
tJpe  is  not  to  be  rewound 

t 

7 

NOTE:  Data 

matrix  is 

dimensioned  NV  by  N. 

t 

1 

Variable-Format  Card  (optional:  card  input;  IT=5) 

Standard  FORTRAN  format  card  but  delete  word  FORMAT. 

Data  Cards  (optional) 

Follow  format  on  Variable-Format  Card. 

NOTE:  If  IRC=1  and  an  entire  matrix  row  (N  entries)  is  on  a single 

Data  Card,  then  the  numbers  of  Data  Cards  ■ NV. 

System  Control  Cards 

JOB  Card  will  be  prepared  by  Educational  Testing  Service  personnel. 
System  Card  1 


System  Card  2 


System  Card  3 


Columns 

1-36 

Co lumn8 

1-19 


Columns 

1-  2 


Contents 

//STEPNAME  EXEC  GITNGO ,NAME=MATDEC 

Contents 

//GO. SYSIN  DD  * 

Contents 

// 

continued 
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Job  Deck 

JOB  Card 
System  Card  1 
System  Card  2 
Title  Card 

Parameter  Card 

Variable-Format  Card  (optional) 

Data  Cards  (optional)  

System  Card  3 

Description  of  Output 

Printed  Output:  The  parameters  NV,  N,  IRC,  IT,  and  IR  are  printed 

at  the  beginning  of  the  job,  and  the  title  is  printed  at  the  top 
of  each  new  page.  The  raw  data  are  printed  followed  by  the  cross- 
products  matrix.  An  abbreviated  form  of  T (the  diagonal  elements 
only)  is  followed  by  U and  W as  labeled. 

Tape  Output:  In  addition,  output  will  be  written  in  binary  on 

tape  unit  3 in  the  following  order. 

(1)  the  72-position  array  TITLE 

(2)  the  diagonal  elements  of  T 

when  NV  <_  N : 

(3)  the  matrix  U,  rowwise 

(4)  the  matrix  W,  columnwise 

or,  when  NV  > N: 

(3)  the  matrix  W,  columnwise 

(4)  the  matrix  U,  rowwise 

If  there  are  additional  runs,  FT03F002  (OS/360  file  number;  see 
contact  person  for  further  information)  etc.,  will  contain  the 
subsequent  output  blocks.  Note  that  U,  T,  and  W are  written  in 
double  precision. 


May  be  repeated  for 
additional  programs. 


o 

ERLC 
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t> 


SAMPLE  INPUT 

//JOBNAME  JOB  ( 

//STEPNAME  EXEC  GI TNGO,NAME=MATDEC 
//GO.SYSIN  DD  5S 
SAMPLE  CASE  TITLE  LINE 
6 4 15 

(4F1 .0) 

1649 

5524 

9452 

4267 

3155 

7831 

// 


c 


(. 
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SAMPLE  OUTPUT 


NO.  OF  VARIABLES  = 6 

NO.  OF  SUBJECTS  = 4 

IRC  = 1 

INPUT  TAPE  » S 

IR  = 0 (1  MEANS  REWIND) 


i£> 

o 

o 

o 

o 

o 


ROW  1 OF  DATA  MATRIX 

1.00000  6.00000  4.00000  9.00000 

ROW  2 OF  DATA  MATRIX 

5.00000  5.00000  2.00000  4.00000 


ROW  3 OF  DATA  MATRIX 

9.00000  4.00000  5.00000  2.00000 


ROW  4 OF  DATA  MATRIX 

4.00000  2.00000  6.00000  7.00000 

ROW  5 OF  DATA  MATRIX 

3.00000  1.00000  5.00000  5.00000 


ROW  6 OF  DATA  MATRIX 


7.00000  8.00000 


3.00000  1.00000 


CROSS-PRODUCTS 


1 


4 


1 181.00000 

2 134.00000 

3 119.00000 

4 97.00000 


134.00000 

146.00000 
95.00000 

109.00000 


119.00000 
95.00000 

115.00000 

124.00000 


97.00000 

109.00000 

124.00000 

176.00000 


EIGENVALUES  (GAMMA) 

1 

1 22.25328 

2 9.30737 

3 5.82712 

4 1.48615 


EIGENVECTORS  (W') 

12  3 4 


1 

2 

3 

4 


0.53954 

0.49038 

0.45743 

0.50910 


-0.60364 

-0.25521 

0.16536 

0.73698 


-0.37722 

0.78853 

-0.48038 

0.07187 


-0.44969 

0.26949 

0.72983 

-0.43876 


continued 
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ROW 

1 OF  MATRIX  U 

0.44458 

0.55434 

0.52843 

0.09266 

ROW 

2 OF  MATRIX  U 

0.36403 

-0,10912 

0.23738 

-0,80504 

ROW 

3 OF  MATRIX  U 

0.45489 

-0.44619 

-0.42886 

-0.13300 

ROW 

4 OF  MATRIX  U 

0.42453 

0. 34661 

-0.39660 

0,03220 

ROW 

5 OF  MATRIX  U 

0.31194 

0.26276 

-0.40941 

0.2S284 

ROW 

6 OF  MATRIX  U 

0.43055 

- 0 . 5408  7 

0.39443 

0,51056 

\ 
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COST  ESTIMATE 

The  pricing  algorithm  for  the  Educational  Testing  Service  is 
based  on  a complex  formula  involving  the  amount  of  core  usage, 
card-processing,  tape  and  dedicated  device  usage,  lines  printed 
and  central  processor  unit  (CPU)  elapsed  time.  Computer  costs 
for  the  job  included  in  the  Sample  Input  were  $2.13. 

Charge  to  user  = computer  costs  + postage  and  handling  + network 

overhead 

= $2.13  + $5.00  + network  overhead 
= $7.13  + network  overhead 


CONTENTS— MATDEC 
pages 

1 Identification  § Abstract 

3—  4 User  Instructions 

5-  7 I/O 

9 Cost — Contents 
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DESCRIPTIVE  TITLE 
CALLING  NAME 
INSTALLATION  NAME 

AUTHOR(S)  AND 
AFFILIATION(S) 

LANGUAGE 


Analysis  of  Change-over  Experiments 
ZFE-03,  ZFE-04 

Office  of  Data  Analysis  Research 
Educational  Testing  Service  (ETS) 

Procedure:  G.  Beall 

formerly  of  Gillette  Razor  Co. 

Program:  V.  Half maim 

formerly  of  ETS 

FORTRAN 


COMPUTER 
PROGRAM  AVAILABILITY 

CONTACT 


FUNCTIONAL  ABSTRACT 


IBM  360/65 

Decks  and  listings  presently  available 

Mr.  Ernest  Anastasio,  Off.  of  Data  Anal. 
Research,  Educational  Testing  Service, 
Rosedale  Road,  Princeton,  N.J.  08540 
Tel.:  (609)  921-9000  ext.  2552 


The  class  of  designs  covered  by  this  program  is  latin  squares 
or  Youden  rectangles  (incomplete  latin  squares) . These  may  be 
repeated  fully  or  in  part.  The  design  may  be  defective,  i.e., 
certain  whole  rows  may  be  missing,  but  no  allowance  has  been 
made  for  missing  cells,  i.e.,  single  observations. 


The  purpose  of  this  program  is  primarily  to  analyze  the  results 
for  effect  of  treatment  with  allowance  for  carrv-over  of  pre- 
ceding treatment.  There  is  also  direct  testing  of  the  signi- 
ficance of  carry-over.  There  is  included  parallel  estimation 
and  testing  of  significance  without  allowance  for  carry-over. 
The  program  is  self-contained  and  does  not  require  any  external 
subroutines,  such  as  might  be  presumed  to  exist  in  one  form  or 
another  at  computation  centers. 


The  program,  as  presently  stored,  allows  analysis  for  designs 
up  to  40  rows  (or  blocks) . This  is  limited  by  the  dimensions 
of  the  data  matrices.  It  could  be  readily  enough  changed  to 
500  or  1000  if  such  an  experiment  were  involved.  The  analysis 
has  been  contrived  so  that  such  change  does  not  increase  the 
size  of  the  matrix  involved  in  equation  solving. 
aontinued 
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Explanation  <=> 

o 

The  basic'  equations  are,  o 

i.  yijk  “ v + «i  + Bj  + Yk  + eijk  s 

where  yijv  is  an  observation  assumed  built  of  a general  level  y , 
effect  or  the  i"th  row  or  individual  f the  j™  period  or 
column  $|  , the  k™1  treatment  y^  and  extraneous  variability 
eiik  • This  equation  obtains  for  the  first  column  or  period 
when  there  has  been  no  conditioning  period.  For  the  following 
periods , 

2-  yijk*  ■ w + ai + sj  + yk  + h * Eijk* 

where  the  effect  of  the  treatment  in  the  preceding  period 
is  6^  . For  a conditioned  experiment  Equ.  (2)  obtains  in  all 
columns . 

The  data  actually  considered  are  the  differences  within  rows 
such  as , 

yijk*  ‘ yi'j'k'r  = 6j  ‘ Bj'  + Yk  ‘ Yk'  + 6*  ' 6*’ 

Cj'  t } , k'  k , *'  / *)  . 

These  differences  are  then  set  forth  in  a matrix.  Thus  for  an 
unconditioned  latin  square  for  which  the  first  line  is, 

Design:  (1)  (2)  (4)  (3) 

Result:  4576 

we  may  consider  the  two  differences, 

y 1 1 1 ■ yi 22 1 = 3 1 " 32  + Yl  ■ Y2  ■ 5 1 + Clll  - E 1 2 2 1 

yi22  1 " yi  3 4 2 = 32  " 33  + Y2  - Y4  + 5 1 " <$  2 + ^1221  " ^1342 

which  results  in  two  lines  of  the  matrix  as  follows: 

3i  32  33  34  Yi  Y 2 Y 3 Y 4 61  62  63  64  Result 

+ 1 -1  +1  -1  -1  -1 
+ 1 -1  +1  -1  +1  -1  -2 

Least-squares  equations  are  in  the  same  form.  For  instance,  to 
get  the  equation  associated  with  32  , each  line  is  multiplied 
by  its  content  in  the  32  column  a, id  the  product  accumulated 
over  all  columns.  Fcr  each  set  of  effects  (3  , y or  6) , the 
last  equation  is  replaced  by  a condition  equation, 

• continued 
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^ • = £ Yi,  = E = 0 . 

j 3 k .i  * 

The  analysis  without  carry-over  (SANS  DELTA)  is  gotten  by  re- 
placing, temporarily,  all  equations  appropriate  to  6 by 

h - 0 • 

The  analysis  without  treatment  (SANS  GAMMA)  is  obtained  by  the 
temporary  replacement,  = 0 . 


The  residual  variability  is  gotten  in  several  steps.  First  the 
variability  residual  on  $ , y and  6 is 


3*  ^ ^iik  + ^ ^iik&  ^ ^ ^iik  + ^ ^iik£^ 

ijk  1JK  ijk*  1;,K36  j J ik  1JK  ik*  1Jia 

A A 

” E Yk(2  yiik  + E y-Hvp)  ~ ^ ^ ^iikJl 

k lj  1JK  ij*  1JK3t  * 36  ijk  1JKX'  * 

Secondly,  an  estimate  of  ft  is  made  by  finding  from  Equ.  (1)  or 
(2)  the  mean  of  the  values 

^ijk  ~ ^ijk  ” ^j  ” Yk 

yijU  = yijki  “ ®j  - Yk  " *«.  • 

Thirdly,  estimates  of  &.  are  made  by  finding  the  mean  of  the 
values  1 

yijk  = yijk  “ y 

y"ijk)i = y'iju  - >•  • 


The  residual  variability  as  from  equation  (3)  is  then  further 
and  finally  reduced  by 


V 


E 

ijk* 


ijk* 


E 

i 


a. 


E 

jk* 


ijk* 


Residual  variability  on  the  effects  of  y , rows  and  columns 
only  (SANS  DELTA  § SANS  GAMMA)  is  gotten  by  the  formula  familiar 
in  analysis  of  variance. 


oontinued 
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The  test  of  significance  for  treatments  without  allowance  for 
carry-over  is  based  on  residual  variability  SANS  DELTA  less 
residual  variability  SANS  DELTA  $ SANS  GAMMA. < The  test  with 
allowance  for  carry-over  is  from  residual  variability  on  FULL 
MATRIX  less  that  on  SANS  GAMMA.  The  test  for  carry-over  is 
from  residual  variability  on  FU^L  MATRIX  less  that  on  SANS 
DELTA. 

It  need  only  be  added  that  there  is  incorporated  a test  on 
whether  the  situation  is  underdetermined.  The  program  counts 
the  number  of  different  row  patterns,  multiples  this  number 
by  the  number  of  columns,  and  checks  whether  the  result  exceeds 
the  number  of  independent  parameters  to  be  estimated.  In  the 
case  of  underdetermination,  it  refuses  to  analyze.  A second 
type  of  refusal  arises  if  the  simultaneous  equations  prove 
insoluble,  which  may  arise  if  the  design  is  redundant.  Finally, 
if  there  is  no  residual  freedom,  the  program  will  estimate  the 
parameters  but  declare  F = 0. 
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USER  INSTRUCTIONS 

Because  there  are  two  experimental  designs  for  change-over 
experiments,  two  programs  have  been  written.  The  first, 
ZFE-03,  analyzes  the  results  from  a design  that  did  not 
include  a conditioning  week.  The  second,  ZFE-04,  analyzes 
the  results  from  a design  that  did  include  a conditioning 
week.  In  each  case  the  Parameter  Card  will  give  the  number 
of  treatments,  the  number  of  columns  of  result,  the  number 
of  columns  of  treatment  patterns,  and  the  number  of  rows. 

In  the  unconditioned  experiment  the  number  of  columns  of  re- 
sults will  equal  the  number  of  columns  of  treatment  patterns. 
In  the  conditioned  experiment,  the  number  of  columns  of  treat- 
ment patterns  will  be  one  greater  than  the  number  of  columns 
of  results . 


Input 

Parameter  Card 


Columns 

1-  5 
6—10 
11-15 
16-20 


Contents 

Total  number  of  treatments  possible 
Number  of  columns  in  treatment  pattern 
Number  of  columns  of  results 
Number  of  rows  of  treatments  and  results 


Note:  For  an  experiment  with  a conditioning  period,  the 

number  of  columns  in  the  treatment  pattern  will  be  one 
greater  than  the  number  of  columns  of  results.  For  an 
unconditioned  experiment,  the  two  numbers  will  be  identi- 
cal . 

Row  of  Design  Cards  (one  for  each  row) 

Format  Contents 

615  Statement  of  treatments 

Row  of  Result  Cards  (one  for  each  row) 

Format  Contents 

6F5.0  Statement  of  results 

System  Control  Cards 

JOB  Card  will  be  prepared  by  ETS  personnel. 

continued 
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System  Card  1 
Columns  Contents 


1-30  //STEPNAME  EXEC  GITNGO,NAME= 

31—36  ZFE-03  or  ZFE-04  (see  above) 


System  Card  2 
Columns  Contents 

1-19  //GO . SYSIN  DD 


System  Card  3 
Columns  Contents 

1-  2 // 


O 

o 

o 

o 

o 

ch 

K> 


Job  Deck 

JOB  Card 
System  Card  1 
System  Card  2 
Input  Deck 
System  Card  3 

Output 

The  design  and  results  are  printed  out.  The  least  squares 
estimates  for  columns  and  treatments  are  printed  (SANS  DELTA) 
as  they  are  found  without  consideration  of  carry-over.  Then 
the  estimates  for  columns,  treatments  and  carries-over  are 
shown  (FULL  MATRIX) . Finally,  the  analyses  for  significance 
are  printed.  There  is  a test  for  treatment,  without  allowance 
for  carry-over,  a test  for  treatment  with  allowance,  and  a 
test  for  carry-over.  In  each  case  there  is  shown  the  variance 
ratio,  F,  with  its  two  statements  of  freedom. 
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(N 

VO 

o 

o 

o 

o 

o 


SAMPLE  INPUT 
// 

//STEPNAME 
/ /GO . SYS  I N 
7 4 


1 

2 

4 

5 

6 
7 
2 

3 

4 

5 

6 
7 
1 
2 

3 

4 
6 


// 
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2 

3 

5 

6 
7 
1 
6 
7 
1 
2 

3 

4 
2 

3 

4 

5 
7 


EXEC 

DD 

4 

4 

5 
7 
1 
2 

3 

4 

5 

6 
7 
1 
2 

4 

5 

6 
7 
2 


JOB  C • • • . 

GI TNGO, NAME  = ZFE— 0 3 
s: 

18 

7 

1 

3 

4 

5 

6 

3 

4 

5 

6 
7 
1 
7 
1 
2 
3 
5 


55. 

37. 

47. 

45. 

37. 

25. 

25. 

38. 

24. 

24. 

29. 

46. 

36. 

44. 

39. 

52. 

42. 

54. 

50. 

55. 

49. 

37. 

56. 

62. 

42. 

45. 

35. 

32. 

55. 

60. 

52. 

60. 

54. 

60. 

57. 

54. 

42. 

44. 

46. 

44. 

46. 

48. 

54. 

47. 

42. 

54. 

42. 

42. 

49. 

42. 

47. 

48. 

34. 

43. 

46. 

54. 

52. 

55. 

42. 

42. 

38. 

38. 

26. 

28. 

50. 

62. 

50. 

61. 

42. 

49. 

51. 

63. 

erIc 
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SAMPLE  OUTPUT 


o 

o 

o 


ESTIMATES  OF  VARIABLES 


SANS  DELTA 

BETA 

FULL  MATRIX 

-1 . 3858 

-1.3742 

-0.1037 

-0.1668 

-1.3409 

-1.3384 

2.8304 

GAMMA 

2. 8795 

-1.9907 

-1.4136 

-1  . 1776 

-0.5279 

4.1289 

3.8279 

-0.6008 

-0.9817 

0.1367 

-0.6040 

-1 . 2811 

-1.4894 

0.7846 

DELTA 

1.1887 

-0.0 

0.7361 

-0.0 

2.8368 

-0.0 

0.7053 

-0.0 

-0.1414 

-0.0 

-2.0391 

-0.0 

-1.4626 

0.0 

-0.6351 

ANALYSIS 

FACTORS 

1 

1 d.f.  | 

| RESIDUAL  VAR. 

MU  ROWS 

COLUMNS 

CONTROL 

51. 

2188.37 

CONTROL 

FACTORS 

PLUS 

TREATMENTS 

45. 

1973.20 

F 

= ( 

2188.37  - 1973.20 

)/  6. 

0.82 

6 . ,45.  1973.20  / 4S. 


FACTORS  | 

1 d.f.  | 

| RESIDUAL  VAR. 

MU  ROWS  COLUMNS  CARRIES-OVER  CONTROL 

45. 

2045.65 

CONTROL  FACTORS  PLUS  TREATMENTS 

39. 

1874.19 

F * ( 204S.6S  - 1874.19  )/  6. 

0.59 

6., 39.  1874.19  / 39. 


FACTORS 

1 d.f.  | 

| RESIDUAL  VAR. 

MU  ROWS  COLUMNS  TREATMENTS  CONTROL 

4S . 

1973.20 

CONTROL  FACTORS  PLUS  CARRIES-OVER 

39. 

1874.19 

o 

o 

<7> 

PO 


F - ( 1973.20  - 1874.19  )/  6.  « 0.34 

6. ,39.  1874.19  / 39. 


o 
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2 COST  ESTIMATE 

o 

° The  pricing  algorithm  for  the  Educational  Testing  Service  is 
o based  on  a complex  formula  involving  the  amount  of  core  usage, 

§ card-processing,  tape  and  dedicated  device  usage,  lines 

printed  and  central  processor  unit  (CPU)  elapsed  time.  Computer 
costs  for  the  job  included  in  the  Sample  Input  were  $3.80. 

Charge  to  user  = computer  costs  + postage  and  handling  + network 

overhead 

= $3.80  + $5.00  + network  overhead 
= $8.80  + network  overhead 


CONTENTS— ZFE-03,  ZFE-04 
pages 

1—  4 Identification  § Abstract 

5—  6 User  Instructions 

7-  8 I/O 

9 Cost — Contents 
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DESCRIPTIVE  TITLE 


Multivariate-Analysis  of  Variance 


CALLING  NAME  MANOVA 


INSTALLATION  NAME 


AUTHOR(S)  AND 
A F F I L I AT 1 0 N ( S ) 


Office  of  Data  Analysis  Research 
Educational  Testing  Service  (ETS) 

Elliot  M.  Cramer,  ETS 
Amended  by:  Charles  C.  Hall,  ETS 


LANGUAGE  FORTRAN  II 


COMPUTER 
PROGRAM  AVAILABILITY 


IBM  360/65 

Decks  and  listings  presently  available 


CONTACT  Mr.  Ernest  Anastasio,  Off.  of  Data  Anal. 

Research,  Educational  Testing  Service, 
Rosedale  Road,  Princeton,  N.J.  08540 
Tel.:  (609)  921-9000  ext.  2552 


FUNCTIONAL  ABSTRACT 

MANOVA  performs  univariate  and  multivariate  analyses  of  variance, 
of  covariance,  and  of  regression.  It  is  quite  general  and,  ini- 
tially at  least,  runs  should  be  coordinated  with  the  Office  of 
Computation  Sciences  through  the  contact  person  until  the  user 
becomes  familiar  with  the  preparation  of  parameter  cards  involved. 
It  will  perform  univariate  and  multivariate  analyses  of  variance 
with  complete  factorial  designs  or  incomplete  designs,  and  with 
or  without  covariates,  discriminant  analyses  and  canonical  corre- 
lations. An  exact  solution  in  either  the  orthogonal  or  nonor- 
thogonal  case  is  provided,  and  options  include  single-  or  multi- 
ple-degree-of-f reedom  contrasts  in  the  main  effect  or  interactions, 
transformation  of  variables,  and  orthogonal  polynomial  contrasts 
with  equally-  or  unequally- spaced  points.  Reanalyses  may  be  done 
with  different  criteria,  covariates,  contrasts  and  models. 

Limitations  include  a total  of  40  variables,  no  more  than  100 
nonvacant  cells,  and  up  to  eight  factors  with  a maximum  of  20 
levels  in  each.  There  is  no  limitation  on  the  number  of  sub- 
jects . 
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USER  INSTRUCTIONS 


Input 

K)  r 

S Input  to  the  program  consists  of  a variable  number  of  cards  de- 
° pending  upon  the  options  used.  The  choice  of  the  options  is 

o generally  indicated  by  a 1 punch  in  a particular  column  of  the 

§ Problem  Card. 

The  types  of  cards  used,  identification,  a summary  description 
of  contents  and  order  of  cards  follow* 


Title  Card 


Columns  Contents 


1-  5 TITLE 

6—80  Any  title;  multiple  card  may  be  used 


Problem  Card 


Columns  Contents  (b  represents  blank) 


1-  4 
6-  7 
8 
9 


10 

11 

12 

13 


14 


15 


PROB 

No.  of  variables  (<  40) 

No.  of  factors  (<_  8) 

n:  No.  of  Variable-Format  Cards 

b:  standard  format 

1:  variable  names  supplied 

b:  numbers  used 

1:  subset  of  variables  used  as  criteria 

b:  all  variables  used 

1:  Significance  Test  Cards  read 

b:  standard  ordering 

1:  last  effect  on  Significance  Test  Cards  obtained 

as  residual  and  tested 
b:  no  test  on  residual  effect 

1:  correlation  between  observed  error  variables  and 

canonical  variables  printed 
b:  correlation  not  printed 

4:  Input  data  on  tape  4 
b:  Input  data  on  tape  5 


NOTE:  Data  on  tape  5 must  have  LRL  £ 70,  RCT  = 1,  Block  £ 70, 
Type  1.  Tape  labels  must  be  bypassecT  by  7044  operator.  TSee 
contact  person  for  further  information.) 
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Problem  Card 


Columns  Contents  (b  represents  blank) 


16 

17 


1:  cell  means  not  printed 

b:  cell  means  printed 

1:  transformations  of  data 

b:  no  transformations 


18 

19 

20 


1:  reduced  model  matrix  printed 

b:  matrix  not  printed 

1:  correlations  among  model  parameters  printed 

b:  correlation  not  printed 

1:  reduced  model  matrix  read  in  (Col*  12  = 1) 

b:  matrix  not  read 


21 


1:  mean  omitted  from  model  (Col.  12  = 1) 

b:  mean  included 


22 


1:  sum  of  product  matrix  printed 

b:  matrix  not  printed 


Variable-Name  Card  (optional:  PROB  Col.  (10)  = 1) 


Columns  Contents 

1—10  Name  of  first  variable 

11-20  Name  of  second  variable 


71-80 


Name  of  eighth  variable 

Use  number  of  names  equal  to  number  of  variables . 


Vari abl e -Subset  Card  (optional:  PROB  Col.  (11)  = 1) 


Columns  Contents 

1—  2 Number  of  criteria  (right- justified) 

3_  4 Number  of  covariates  (right- j us tified) 

5—80  Of  the  V variables,  punch  variable  numbers  followed 

by  covariates  in  2— digit  fields . Use  additional 
cards  if  necessary  starting  in  Col  1. 
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Contrast  Cards  (entered  for  every  factor  in  same  order  as 

factor  codes) 


Co lumns 

1 

2 


3-  4 
5-20 

21-60 

61-80 


Contents  (b  represents  blank) 

letter  ID  of  factor  (not  W) 

b:  regular  contrasts 

1:  special  contrasts 

2:  orthogonal  polynomial  contrasts  on  following  card 

3:  orthogonal  comparison  of  i + first  level  minus 

average  of  previous  levels 

Levels  for  this  factor  (right “justified  £ 20) 

b:  no  partition  of  factor 

If  partitioning  to  be  done*  punch  degrees  of  freedom 
for  each  partition  in  2-digit  fields. 

b:  level  codes  are  punched  in  Data  Cards 

Level  cards  are  punched  in  2— digit  fields  otherwise. 

Factor  name 


Special  Contrast  Cards  (optional:  Contrast  Card  Col.  (2)  - 1) 

Columns  Contents 

1—80  Square  matrix  with  as  many  rows  as  levels  in  factor 

in  5-digit  fields.  Each  row  begins  on  new  card; 
they  must  sum  to  zero. 


(Contrast  Card  Col.  (2)  = 2) 


Columns 

1-80 


Contents 

For  orthogonal  polynomials,  specify  metric  in  5— digit 
fields . 


Significance  Test  Cards  (optional:  PROB  Col.  (12)  = 1) 

Columns  Contents 

1-80  Code  letters  for  effects  of  design  separated  by  commas, 

followed  by  period.  W denotes  nesting.  Ex:  B , A,AB . 


Vari abl e -Format  Cards  (optional:  PROB  Col.  (9)  = n) 


Columns  Contents 

1—80  Variable  format  for  one  subject. 

Include  level  code  for  each  factor  and  include 
parentheses . 
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Transformati on  Card  (optional:  PROB  Col.  (17)  = 1) 


Columns  Contents 


1 to 

number  of 
variables 


b:  no  transformation 

1:  square  root  transformation 

2:  log  transformation 

3:  arcs  in  transformation 

4—9:  user's  transformation;  subroutine  SPECTR  must 

be  changed 


Data  Cards  (Format  designated  by  PROB  Col.  (9)) 


Data  must  include:  numbered  level  code(s)  followed  by  scores. 

All  Data  Cards  for  one  subject  must  be  in  order.  Deck  is  fol- 
lowed by  as  many  blank  cards  as  there  are  Data  Cards  for  one 
subj  ect . 

Reduced  Model  Matrix  Cards  (optional:  PROB  Col.  (20)  = 1) 


First  row  of  reduced  model  matrix  punched  in  5-column  fields. 
Continue  for  remainder  of  rows  in  reduced  model  matrix. 


Reanalysis  Card  (optional) 


Columns  Contents  (b  represents  blank) 


1- 


5 

6 


ANALY 

b:  all  variables  used  as  criteria 

1:  subset  used  as  criteria 


7 

8 


b:  standard  or  diagonal  ordering 

1:  Significance  Test  Cards  read 


b:  previous  contrasts  used 

1:  new  contrasts  used 


9 


b:  residual  effect  not  tested 

1:  residual  effect  tested 


10 


b:  reduced  model  matrix  not  read 
1:  reduced  model  matrix  read 


11 

12 


b:  general  mean  included 

1:  general  mean  omitted 


b:  print  complete  statistical  analysis 

1:  print  estimates  of  effects  only 
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Variable-Subset  Cards  (optional:  ANALY  Col.  (6)  = 1) 

Same  format  as  previous  Variable -Subset  Cards 

Contrast  and  Special  Contrast  Cards  (optional:  ANALY  Col.  (8)  = 1) 

Same  format  as  previous  Contrast  Cards 

Significance  Test  Cards  (optional:  ANALY  Col.  (7)  = 1) 

Same  format  as  previous  Significance  Test  Cards 

Reduced  Model  Matrix  Cards  (optional:  ANALY  Col.  (10)  = 1) 

Same  format  as  previous  Reduced  Model  Matrix  Cards 

Finish  Card  (placed  at  end  of  all  problems) 

Columns  Contents 

1-  6 FINISH 


System  Control  Cards 

JOB  Card  will  be  prepared  by  ETS  personnel. 


System  Card 
Co lumns 
1-36 

System  Card 
Co lumns 
1-19 


1 

Contents 

//STEPNAME 

2 

Contents 

//GO.SYSIN 


EXEC 


DD 


GITNGO ,NAME=MANOVA 


* 


System  Card  3 
Columns  Contents 

1-  2 // 

Job  Deck 

JOB  Card 
System  Card  1 
System  Card  2 
Input  Deck 
System  Card  3 
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Output 

The  output  is  dependent  upon  the  specifications  in  the  input 
cards.  It  may  include 

1.  description  and  identification  of  variables  and  factors 

2.  means  and  standard  deviations 

3.  reduced  model  matrix 

4.  correlations  of  effects 

5.  univariate  analysis  table  (ANOVA) 

6.  multivariate 

(a)  error  correlations 

(b)  estimates  of  effects  tested  against  the  error  term 

(c)  analysis  of  regression  if  there  are  covariates 

7.  a page  with  multivariate  and  univariate  tests  for  each 
effect.  In  the  program,  sufficient  diagnostic  output  is 
given  to  isolate  an  error.  For  more  detail,  consult  the 
complete  writeup  (Ref.  1). 

Restri cti ons 
No.  of  variables  (<  40) 

No.  of  factors  (<  8)  { 

No.  of  levels  for  each  factor  (<.  20) 

No  restriction  on  number  of  subjects 

REFERENCES 

Clyde,  D.J.,  Cramer,  E.M.,  § Sherin,  R. , Revised  MANOVA  Program 
(The  University  of  Miami  Biometric  Laboratory,  Coral  Gables, 

Florida,  1967)  . 
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SAMPLE  INPUT 


//JOB  ( 

//STEPNAME  EXEC  G I TNGO, NAME = MAN OVA 
//GO.SYSIN  DD 

TITLE  PROBLEM  1 FROM  HALL  AND  CRAMER  MANOVA  PROGRAM  WRITTEN  IN  FORTRAN  II 

TITLE  2X2  FACTORIAL  DESIGN  WITH  6 CRITERIA 

TITLE  REANALYZE  WITH  1 CRITERION  AND  5 COVARIATES 

PROB  6211  1 11 

FOUR 


ONE 


TWO 


THREE 


FIVE 


SIX 


(211, 

10X, 

6F6 .0) 

115 

41 

569. 

156. 

104. 

506  . 

4. 

9. 

115 

42 

47  5. 

120. 

105. 

366  . 

4. 

16. 

115 

43 

641. 

83. 

82. 

815  . 

4. 

16. 

115 

44 

779. 

104. 

104. 

331  . 

4. 

17. 

115 

45 

5 87. 

98. 

53. 

564. 

3. 

13. 

115 

46 

841 . 

129. 

71. 

519  . 

5. 

5. 

115 

47 

907. 

90, 

49. 

416. 

3. 

16. 

115 

48 

698. 

76, 

53. 

492  . 

4. 

9. 

115 

49 

849. 

132  . 

89. 

459  . 

5 . 

1. 

115 

50 

505. 

166. 

207. 

474. 

4. 

-9. 

126 

51 

557. 

91  . 

62  . 

513. 

3. 

26. 

126 

52 

649. 

114. 

52. 

416. 

4. 

16. 

126 

53 

714. 

81 , 

50. 

491  . 

4. 

0. 

126 

54 

611. 

125. 

80. 

630. 

3. 

25. 

126 

55 

713. 

84, 

57. 

471. 

4. 

4, 

126 

56 

644. 

97. 

63. 

453. 

4. 

5. 

126 

57 

593. 

83, 

55. 

546  . 

4. 

8. 

126 

58 

5 36. 

125, 

85. 

364. 

3. 

24. 

126 

59 

9 88. 

109  . 

94. 

554. 

4. 

7. 

126 

60 

584. 

120, 

91  . 

503, 

4. 

4. 

218 

71 

935. 

72, 

67. 

623, 

4. 

12  , 

218 

72 

846. 

96, 

79. 

539, 

4, 

2, 

218 

73 

704. 

109  . 

45, 

35  5, 

2, 

7, 

218 

74 

953. 

142. 

67. 

432, 

3. 

22, 

218 

75 

553. 

97. 

80. 

495, 

3. 

16. 

218 

76 

592. 

82. 

67. 

362. 

2 , 

17. 

218 

77 

529. 

85. 

50, 

657. 

2 , 

14. 

218 

78 

556. 

99. 

67. 

589  . 

1 , 

18. 

218 

79 

419. 

103, 

77. 

452  . 

3. 

15. 

218 

80 

598, 

78  . 

59. 

397. 

4, 

0. 

229 

81 

662. 

75. 

48  , 

385. 

4, 

14. 

229 

82 

668. 

88  . 

48. 

361  , 

2 , 

8. 

229 

83 

519. 

110, 

48. 

391. 

3. 

11. 

229 

84 

449. 

90, 

66. 

484. 

4, 

9. 

229 

85 

647. 

80, 

56. 

48  2 . 

4. 

2. 

229 

86 

589. 

64. 

44, 

337. 

3. 

15. 

229 

87 

846. 

73. 

60, 

598. 

4, 

6. 

229 

88 

748. 

96. 

65. 

601 . 

4. 

10. 

229 

89 

763. 

135. 

92. 

480, 

2 . 

12. 

229 

90 

578. 

102. 

65. 

68  3. 

3. 

-8. 

ANALY1 

1 5 

5 1 

2 3 4 6 

/« 


ALPHA 

BETA 
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SAMPLE  OUTPUT 


MUITIVARIATF  ANALYSIS  OF  VARIANCF 
OAT FD  3/?  1/68 

PRUBLFM  I FROM  HALl.  AND  C.RAMFR  MANOVA  PROGRAM  WRITTEN  IN  FORTRAN  II 
XX?  FACTORIAL  DESIGN  WITH  6 CRITEPIA 
REANALYZF  WITH  1 CRITERION  ANO  5 COVARIATES 


PRORLFM  1 

6 VAR I ABLFS 

2 FACTORS 

ON  F 

TWO 

THREE 

FOUR 

FIVE 

SIX 

A CRITERIA 
CNF 

C CDVARI ATFS 
TWO 

WITH  THF  FOLLOWING 
THREE 

VARIABLES 

FOUR 

FIVE 

SIX 

FACTOR  A ? I rVFLS  ALPHA 

CFVIATICN  CONTRASTS 


FACTOR  R ? I FVFLS  BETA 

CFVIATTON  CONTRASTS 

FOPMAT  OF  OATA  CARDS 
l?11  .KX.6FF .<  | 


A CELLS 


O 

O 

O 

O 

© 

ON 

w 


) 


MEANS  ANO  STANDARD  OeVlAflONS 


FACTOR 

A R 

1 1 K OBS 

M 

SO 

IP  K OHS 

M 

SO 

? 1 1C  OHS 

M 

SO 

? ? K‘  HRS 

H 

sn 


VARIABLE 


ONE 

TWO 

THREE 

665.100 

115.400 

91.700 

153.122 

3;j.497 

46.094 

658. 9CC 

102. 900 

68.900 

136. 096 

17.760 

16.868 

668.500 

96.300 

65.800 

183.563 

10.089 

11.717 

646. 90L 

91.300 

59. ZOO 

119.088 

2 1..769 

14.17? 

FOUR 

FIVE 

SIX 

494.200 

4.0CC 

9.3C0 

133. C73 

0*667 

8.367 

494.10 j 

3.70C 

11. 90 C 

74.866  ; 

b C.483 

9.927 

490.100 

?.ecr 

12.3CC 

106.459 

1.033 

7.134 

480.200 

3.3CC 

7.9CC 

116.118 

G.823 

6.757 

COMPLFTF  FACTORIAL  WITH  NfJ  MISSING  CPUS 


REDUCED  MODEL  MATRIX 


f ACTOR 
A R 

1 l 
1 ? 
7 . 1 

2 ? 


PARAMETER 

-.1 2 3 

i.oob  1.000  i.coo 

1*000  1*000  -1*000 

1*000  -1,000  1*000 

1.000  -UCOG  -1*000 


_ A 

i.oob 

-1*000 

-1*000 

l.OCO 


CORRELATIONS  OF  CONTRASTS  WITH  STANOARO  DEVIATIONS  OF  CONTRASTS  OIVIDEO  BY  STANOARO  DEVIATIONS  OF  VARIABLES  ON  DIAGONAL 


CONTRAST 

i 

2 

3 

4 

. 1 
? 

3 

4 

0.000 

0.000 

0.000 

0*158 
-C.000 
-C. GOO 

C.  158 

c.oon 

_0.158 
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WITHIN  CELLS  CORRELATIONS  OF  CRITERIA  WITH  STANDARD  DEV  I AT  I ONS  ON  DIAGONAL  ADJUSTED  FOR  0 COVARlATfcS' 


O 

o 

o 


VfRIAPL  F 

ONF 


TWO 
THREE 
FOUR 
F IV  F 
SIX 


ONF 

148.533 
— 0*6*6  3 
-0.171 
0.000 
C • ? 9 5 
-0.1.97 


TWO 

"22.762 
0.633 
-0. 122 
-0.12? 

-c.cse 


THREE 


26.208 

0.021 

r.076 

-0.261 


FOUR 


110.182 

0.C74 

-0.117 


FIVE 


0.778 

-0.440 


SIX 


8.141 


ESTIMATES  ADJUSTED  FOR 

0 COVARIATES 

CRITERIA 

CONTRAST 

A 

ONE 

TWO 

THREE  FOUR 

FIVE 

SIX 

A 

1 

7.  150 

7.675 

8.900  4.500 

0.4J0 

C.  250 

L ASX . 

? 

D 

-7.  150 

-7.675 

-8.900  -4.500 

“-0.400*’* 

-0.250 

n 

1 

11.950 

4.375 

7.35C  2.500 

-0.05C 

0.45C 

LAST 

? 

-11.950 

-4.375 

-7.350  -2.500 

0.050 

-0.450 

~1 

1.150 

1.875 

4.050  -2.450 

0.200 

-1.750  " 

LAST 

? 

-1.150 

-1.875 

-4.050  2.450 

-0.200 

1.750 

TEST  OF  AB 

TESTS  OF  SIGNIFICANCE 

USING  WILKS 

LAMBDA  CRITERION  AND  CANONICAL  CORRELATIONS 

TEST  OF  ROOTS 

F 

OFHYP 

QFERR  P LESS  THAN  R 

1 THROUGH  1 

9.  557 

6.CC0 

31.OC.fi  0.761  0.312 

UNIVARIATE  F TESTS 

STANOAROIZEO  DISCRIMINANT  FUNCTION 

COEFFICIENTS 

VARIABLE  F ( 

It  36) 

MEAN  SO  P 

LESS  THAN  1 

ONE 

0.CO2 

52.899 

0.961  -0.167 

TWO 

0.271 

140.625 

C .606  0.169 

THRFF 

0.955 

656. C99 

C.335  0.222 

FOUR 

0.020 

240. 1C1 

0.889  -0.135 

FIVE 

2.642 

1.6C0 

0.113  0.744 

SIX 

1.848 

122. 5C0 

C.182  -C.327 

- 

• 

TEST  OF  B 

T rSTS  OF  SIGNIFICANCE  USING  WILKS 

LAMBDA  CRITERION  ANO  CANONICAL  CORRELATIONS 

TEST  OF  ROOTS 

F 

OFHYP 

OFFRK  P LESS  THAN  R 

I THROUGH  1 

0.726 

6.  rco 

31.000  0.632  0.351 

UNIVARIATE  F TESTS 

STANOAROIZEO  OISCRIMINANT  FUNCTION 

COEFFICIENTS 

VARIABLE  FI 

1*  36) 

MEAN  SO  P 

LESS  THAN  1 

ONF 

0.259 

5712.089 

0.614  0.51C 

TWO 

1.478 

765.624 

C .232  -0.098 

THRFF 

3.146 

2160.899* 

0.085  1.052 

FOUR 

0.(21 

249.998 

0.887  0.051 

FIVE 

0.165 

0.100 

C.687  -0.267 

SIX 

0.122 

8. ICO 

0.729  C.362 
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TFST  OF  A 

TFSTS  OF  SIGNIFICANCE  USING  WILKS  LAMBDA  CRITERION  AND  CANONICAL  CORRELATIONS 


TEST  r,F  UPnl'S 

F 

OF  HYP 

OF  ERR 

P LESS  THAN 

R 

i thwoiicf  l 

3.2P6 

f .roc 

31.0CC 

O.C  1 3 

0.624 

UNIVARIATE  F TESTS 

STANDARDIZED  DISCRIMINANT  FUNCTION  COEFFICIENTS 

VAR  IABI  F 

H U 36) 

MEAN  SO  P 

LFSS  THAN 

1 

CNF 

II.*  93 

2044.893 

t ■ . 7 1>  3 

-0.123 

two 

4.*»4ft 

2356.224 

P.040 

0.4H7 

THREE 

4.613 

31AP.399 

4*  .030 

0.188 

FOUR 

G.067 

ar9.9S7 

0.79ft 

0.110 

FIVE 

1~.569 

6.4Cf 

C .i.C2 

0.99ft 

SIX 

ftml  3fl 

2.51*  C 

E .647 

C.558 

DTSfR IMINANT 
CONTRAST 
1 

SCORES 

1 

; . • 75 7 

CORRELATIONS 
VAR  IABI.F 

BFTWEFN  VARIARLES  AND  CONPCSITE  SCORES 

1 

ONF 

r.i*64 

twc 

0.446 

THRFF 

C.449 

FOUR 

0.054 

F IV  F 

C.679 

SIX 

• C 4 1 

MULT IVAR I AT  F ANALYSIS  OF  VARIANCE 


PROBLFM  1 RFANALYSIS  1 WITH  THE  FOLLOWING 
FIVE  ONE  TWO 


1 CRITERIA  AND  5 COVARIATES 
THREE  FOUR  SIX 


SOURCE 


WITHIN  CFLLS 
REGRESSION 

A 

B 

AB 


SS 

OF 

MS 

F 

P LESS  THAN 

15.453 

31 

0.498 

6.  347 

5 

1.269 

2.546 

“ ~~~o.04“a 

5.849 

1 

5.849 

11.734 

0.00  2 

C.  097 

1 

C.C97 

0.195 

0.662 

0.614 

1 

0.614 

1.232 

0.276 

ESTIMATFS  ADJUSTED  FOR 

CONTRAST  

A 

) 

......  . . . LASLt 

2 

B 

1 

LAST 

2 

_AB - 

I 

LAST 

7 


T^ovar"iat¥s 

FIVE 

C.417 

-0.417 

-0.052 

0.052 

TriTe 

-0.128 


CRITERIA 


RAW  RFGRFSSION  COEFFICIENTS 


_JGG¥AR  iatfs 
CNF 
TWC 

ThRFF 

FOUR 

SIX 


WITHIN. CELLS 
O.CC) 

-0.CC8 

C.CC5 

-O.OCO 

-0.C37 
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COST  ESTIMATE 

The  pricing  algorithm  for  the  Educational  Testing  Service  is 
based  on  a complex  formula  involving  the  amount  of  core  usage, 
card-processing,  tape  and  dedicated  device  usage,  lines  printed 
and  central  processor  unit  (CPU)  elapsed  time.  Computer  costs 
for  the  job  included  in  the  Sample  Input  were  $5.28. 

Charge  to  user  = computer  costs  + postage  and  handling  + network 

overhead 

= $5.28  + $5.00  + network  overhead 
= $10.28  + network  overhead 


CONTENTS — MAN OVA 
pages 

1—  2 Identification  § Abstract 

3—  8 User  Instructions 

9-12  I/O 

13  Cost — Contents 
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DESCRIPTIVE  TITLE 

Structure  - Factor  Leas t - Squares  Refine- 
ment Program  for  IBM  7090 

CALLING  NAME 

ORFLS-PX 

INSTALLATION  NAME 

University  of  Pittsburgh 
The  Computer  Center 

AUTHOR(S)  AND 
AFFILIATION(S) 

Dr.  Ryonosuke  Shiono 
Crystallography  Laboratory 
University  of  Pittsburgh 

LANGUAGE 

FORTRAN  II,  except  SMI,  which  is  in 
FAP(UMAP) . 

COMPUTER 

IBM  7090  with  32K  core  storage 

2—3  magnetic -tape  units  in  addition  to 

system  input/output. 

PROGRAM  AVAILABILITY 

Proprietary;  usage  permitted,  but  program 
deck  or  listing  not  available 

CONTACT 

Dr.  Ryonosuke  Shiono,  Crystallography 
Laboratory,  300  Thaw  Hall,  University 
of  Pittsburgh,  Pittsburgh,  Pa.  15213 
Tel.:  (412)  621-3500  ext.  7124 

FUNCTIONAL  ABSTRACT 

ORFLS-PX  is  an  extensively  modified  version  of  the  FORTRAN  least- 

squares  program  by  Busing,  Martin,  and  Levy.  Their  program, 

performs  successive  cycles  of  refinement  using  the  full 
matrix  of  the  normal  equations.  The  parameters  which 
may  be  adjusted  include  several  scale  factors,  an  over- 
all temperature  factor  coefficient,  the  neutron  scatter- 
ing factors,  individual  atom  multipliers,  atomic  coorinates, 
and  isotropic  or  anisotropic  individual  atom  temperature 
factor  coefficients.  The  parameters  to  be  varied  may  be 
specified  arbitrarily,  and  structures  of  any  symmetry  may 
be  accommodated.  The  refinement  may  be  based  either  on 
the  structure  factors  or  their  squares,  and  the  observa- 
tions may  be  weighted  individually,  or  the  use  of  unit 
weights  may  be  specified.1 

Features  of  ORFLS-PX 

1.  Reflexion-data  input  may  be  from  cards  or  from  magnetic  tape 
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2.  Uses  atomic-scattering-factor  table  of  f versus  sinQ 

3.  External  scale  factors  now  refer  to  Fobs»  rather  than  to  Fcal*s 

4.  Weighting  scheme  may  be  changed  or  weights  modified  by  a sub- 
routine 

5.  Limitations  on  maximum  number  of  atoms,  parameters  to  be  used; 
number  of  parameters  to  be  refined  have  been  enlarged 

6.  Isotropic  and  anisotropic  temperature  factors  for  atoms  may  be 
used  in  mixed  fashion 

7.  Anomalous  dispersion  correction  may  be  made2 

8.  Calculated  structure  factors,  together  with  the  scales  F, 
are  written  on  a binary  tape,  which  may  be  used  as  an  input 
for  the  Fourier  program  or  for  a new  cycle  of  the  least- 
squares  program. 

9.  Using  an  output  tape  as  the  input,  a part  of  the  structure  may 
be  added  as  fixed  contribution  for  a partial-mode  calculation, 
(this  either  saves  time  in  calculation  or  extends  the  limit  of 
number  of  atoms  to  be  used) 

10.  Different  set  of  parameters  may  be  refined  in  successive  cycles 
of  full-matrix  refinement,  when  not  all  the  parameters  can  be 
refined  at  the  same  time 

General  Description  of  the  Program  Setup 

To  provide  more  storage  space  for  the  parameter  refinement,  0RFLS-PX 
is  divided  into  three  separate  core-load  packages:  MAIN(l), 

MAIN (2) , and  MAIN (3) . 

MAIN(l)  reads  the  reflexion  data  on  cards  or  on  tape,  interpolates 
the  atomic- scatter ing  factors  for  each  kind,  and  assigns  the  weight 
according  to  the  specification.  This  part  may  be  bypassed  if  a 
tape  from  a previous  cycle  of  calculation  is  used  as  the  input. 
Otherwise,  the  program  produces  an  intermediate  output  tape. 

MAIN ( 2 ) reads  back  the  MAIN(l)  tape,  one  reflexion  at  a time  and 
calculates  structure  factor  and  the  necessary  derivatives  for 
least-squares  refinement.  The  calculated  structure  factors  and 
scaled  Fobs’  are  on  the  output  binary  tape.  This  tape  is  rewound 
at  the  end  of  every  cycle  so  that  the  data  on  this  tape  are  the  re- 
sult of  latest  calculation.  This  tape  may  be  used  as  the  input 
for  fixed  contribution  in  a partial-mode  calculation. 

MAI N ( 3 ) prints  out  the  correlation  matrix  and  other  information 
on  various  agreements  at  the  end  of  all  calculation. 
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Card  formats  used  for  reflexion  data  and  atomic  parameters  and 
for  symmetry  operations  are  identical  to  many  other  interconnected 
programs  on  the  IBM  7090  and  IBM  1130  as  well  as  the  IBM  1620. 
Usually,  the  user  has  only  to  punch  a few  Control  Cards  to  run 
any  one  of  the  programs. 

The  Data  and  Parameter  Cards  are  identical  to  those  in  the  Block- 
Diagonal  Least-Squares  programs3  on  the  IBM  7090  and  1130,  and  so 
the  user  may  easily  switch  from  one  program  to  another. 

The  reflexion-data  file  on  magnetic  tape  has,  again,  the  same 
format  between  this  and  Block-Diagonal,  E,  Fourier  and  other 
programs  on  the  IBM  7090  (see  Ref.  3),  and  it  may  be  used  inter- 
changeably. 

ORFLS-PX  is  an  independent  program,  as  compared  to  some  others  in- 
corporated in  a big  system,  permitting  one  to  write  a subroutine 
to  fit  a particular  problem,  and  replace  the  dummy  variables  pro- 
vided in  the  program  by  one’s  own. 

REFERENCES 

1.  Busing,  W.R.,  Martin,  K.O.,  and  Levy,  H. A. , "A  FORTRAN  Crystal- 
lographic Least-Squares  Program,"  ORNL  Tech.  Mem.  No.  TM305 
(Oak  Ridge  National  Laboratories,  Oak  Ridge,  1962).  The  modi- 
fied version  of  this  program  is  used  for  calculations  that 
involve  scattering  data  and  crystallographic  structures.  Addi- 
tional information  can  be  obtained  through  the  contact  person. 

2.  Ibers,  J.A.,  and  Hamilton,  W.C.,  "Dispersion  Correction  and 
Crystal  Structure  Refinement,"  Acta  Cryst.  17,  (1964),  781- 
782. 

3.  Additional  information  can  be  obtained  through  the  contact 
person. 


000  0064 


EDUCOM 


EDUCATIONAL  INFORMATION  NETWORK 

000  0064 


USER  INSTRUCTIONS 

Note  for  Punching  Cards  for  the  Michigan  System 

The  input  routine  used  in  FORTRAN  in  the  Michigan  System  has  one 
bad  feature  insofar  as  the  standard  IBM  FORTRAN  users  are  con- 
cerned. The  I/O  routine  ignores  any  blanks  in  numeric  field, 
whereas  the  IBM  version  considers  these  as  zero.  As  a result, 
if  the  following  zeros  are  not  punched  in  an  integer  field,  or 
in  a floating-point  number  without  a decimal  point,  the  Michigan 
program  will  take  the  last  punched  digit  (rather  than  the  last 
column  of  the  specified  field)  as  the  last  digit  of  the  field. 
Therefore,  care  must  be  taken  to  insure  that  all  the  cards  are 
punched  for  the  system. 

Recommendation:  Always  punch  decimal  point  in  a floating-point 

number  field. 

Card  Format 

Title  Card 

Any  Hollerith  characters  (alphanumeric)  may  be  punched  on  Cols. 

1-72.  The  information  punched  here  will  be  printed  on  the  output 
as  heading. 

Control  Card  No.  1 (515,  6F8.4) 

Parameter  Columns  Contents 

JB  50:  Input  reflexion  data  from  cards 

1:  Input  reflexion  data  on  tape  9.  An 

output  tape  of  the  data-reduction  program, 
E program,  or  that  of  the  least-squares 
program  (this  program  or  block-diagonal 
program)  may  be  used.  The  program  uses 
only  h,  k,  Z indices,  F0bc , o,  ID  from 
the  input  tape,  so  that  this  mode  may  be 
used  when  an  input  tape  contains  no  atomic 
f’s  (data-reduction  or  E-program  output) 
or  some  change  in  weight  or  atomic  f’s  is 
desired 

2:  Input  reflexion  on  cards.  Run  only 

the  Part  I to  produce  an  intermediate  out- 
put tape  (Tape  10)  for  use  in  Patterson 
synthesis 


continued 
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Parameter 


Co lumns 


Contents 

3:  Input  reflexion  data  on  tape  from  a 

previous  least-squares  calculation.  The 
tape  should  be  mounted  on  tape  10.  All 
information  on  the  tape  is  used  without 
change,  the  program  bypasses  Part  I,  and 
the  Cell-Constant  Card,  the  Atomic-Scat- 
tering Cards,  the  Reflexion-Data  Cards, 
and  the  remainder  of  this  card  are  irrele 
vant 


JA 

10 

0:  Refine  F0bs 

1:  Refine  on  (F0bs)2-  This  causes  (F0b§) 
to  be  written  on  tape  10.  Do  not  use  this 
mode  if  F0bs's  are  already  squared 

JW 

15 

0:  Standard  error  c’s  are  punched  on  the 

Data  Cards  and/or  they  will  be  assigned 
by  the  subroutine  MODIFY 

1:  Hughes’  weighting  scheme.  When  speci- 

fied, Fmin  ( not  4Fmin)  value  should  be 
punched  as  A in  Cols . 26—33 

2:  Cruickshank1 s weighting  scheme.  A, 

B,  C values  below  should  be  supplied. 

3:  a)  ■ l/(sin0/X) 

4:  Constant  weight,  d = 1.0 

JC 

20 

0:  Subroutine  MODIFY  is  not  used 

1:  Enter  subroutine  MODIFY 

JD 

25 

0 : Normal 

1:  Set  a)  = 0.0  for  unobserved  reflexion 

with  ID  = 1 

A 

26-33 

Fmin>  value  for  Hughes'  or  A for  Cruick- 
shank's  scheme.  This  may  be  used  for  any 
other  purpose  in  your  MODIFY  subroutine 

B 

34-41 

For  Cruickshank’s  B or  blank 

C 

42-49 

For  Cruickshank's  C or  blank 

D 

50-57” 

E 

58-65 

For  use  in  MODIFY  subroutine 

F 

66-73 

,r* 

( 


continued 


o 

ERIC 


4/70 


> # 

\ 


000  0064 


EDUCOM 


EDUCATIONAL  INFORMATION  NETWORK 

000  0064 


Weight  03  is  taken  as  w = l/(a)2.  If  a = 0,  then  the  program  sets 
03  = 0 . What  is  punched  on  the  Reflexion-Data  Cards  or  calculate 
according  to  some  scheme  and  write  on  the  tape  is  a and  not  w. 

Fobs  values  used  here  are  those  on  the  input  cards,  or  on  the  tape 
9,  and  they  are  not  affected  by  the  scale  factors  that  the  user 
provides . 


Uughe_s  [ Scheme  (Ref.  1) 

03  = 1/ 1 F I 2,  if  F > 4F  . ; 

' 1 o 1 9 o — min’ 

oj  = 1/ 1 4F  . I 2,  if  F < 4F  . ; 
' 1 min1  * o min’ 

03  = 0,  ifF  = 0. 
o 


[ s Scheme  (Ref.  2) 

03  = 1/(A  + BF0  + CFq2 ) . 

Cell  Constant  Card  (3F7.3,  4F7.4) 


Columns 

Contents 

1-  7 

a 

8-14 

b 

15-21 

c 

22-28 

cosa 

29-35 

cos3 

36-42 

cosy 

43-49 

A (wavelength  used) 

a,  b,  c,  and  A are  in  angstrom  units. 

Atomic-Scattering-Factor  Cards  (7F10.4) 

This  is  the  table  of  f versus  sin0,  eight  cards  per  atomic  kind 
(51  entries  of  f ) . Atomic  f’s  are  punched  in  increasing  order  of 
corresponding  sin6  value3  from  0.00  to  1.00  with  an  increment  of 
0.02.  A 1620  FORTRAN  program  or  similar  one  on  the  1130  computer 
prepares  the  cards  from  the  literature  value.  The  order  of  sets 
for  each  atomic  kind  determines  the  number  to  be  used  on  the  para- 
meter cards.  Up  to  ten  sets.  A blank  card  terminates  the  atomic 
f cards . 
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Ref 1 exi on- 

Data 

Cards 

(319, 

2F9.2,  F9.0,  15,  2F6.3) 

The  output 

of 

the  1130 

data 

-processing  program  is  in  this  format. 

Parameter 

Co lumns 

Contents 

1-  9 

h~ 

10-18 

k 

indices 

19-27 

£_ 

28-36 

^obs 

37-45 

o, 

if  used,  or  blank 

53-54 

Scale-factor  designation.  1 ~ 2 0 . If 
blank,  1.0  is  assumed 

59 

0: 

Observed  reflexion 

1: 

Unobserved  reflexion 

RA 

60-65 

Extra  fields  for  any  desired  values  if 
needed 

RB 

66-71 

The  values  will  be  transferred  to  the  in- 

* W UilV*  W-Jiv  - 

part  and  available  in  the  calculation. 
Blank  if  not  used 


A blank  card  terminates  the  reflexion  data. 


Control  Card  No.  2 (1615) 

Parameter  Columns  Contents 

5 


NC 


NA 


8-10 


NQ 

ITF 


14-15 

20 


The  number  of  cycles  to  be  run..  If  NC  « 
0,  a set  of  structure  factors  will  be 
calculated  but  no  refinement  will  be 
made 

The  number  of  atoms  in  the  asymmetric 
unit,  which  are  used  in  the  parameter 
cards 

The  number  of  scale  factors  used  and 
appearing  in  the  parameter  list 

0:  Isotropic  temperature  factors  and 

anisotropic  temperature  factors,  or 
mixed 

1:  Conversion  on  the  parameter  cards  of 

isotropic  temperature  factors  to  aniso- 
tropic mode  before  refining.  If  some  of 
the  atoms  have  already  anisotropic  tem- 
perature factors,  this  will  not  affect 
them. 
continued 
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r 


c 


Parameter 

Co lumns 

Contents 

NV 

23-25 

Number  of  parameters  co  be  varied  and  re- 
fined. If  NC  = 0 (unrefined  structure 
factors  are  used),  then  NV  is  irrelevant. 

NAS 

29-30 

Number  of  anomalous  scattering  atoms  in 
the  parameter  cards  to  apply  the  correc- 
tion. The  parameter  cards  for  those  atoms 
must  be  grouped  and  placed  in  front  of 
other  atoms . 

NPT 

35 

0:  normal  calculation 

1:  Partial-mode  calculation.  Ac,  Be  are 

taken  from  the  input  tape  and  added  to 
the  current  calculated  values.  This  as- 
sumes that  an  output  tape  of  previous 
calculations  is  mounted  on  tape  10  for 
use  as  input  data.  Any  atom  with  anoma- 
lous dispersion  correction  should  be  in 
the  new  part  and  may  not  be  in  the  input 
tape . 

NPRN 

40 

0:  Print  structure  factors  for  every 

cycle . 

1:  Print  only  the  final  structure  fac- 
tors and  suppress  the  printout  of  other 
cycles . 

NR 

45 

0:  Normal  calculation  with  no  parameter- 

NRW 


50 


selection  change 

1:  First  run  of  repeat  calculations  with 

change  in  Parameter-Selection  Cards. 

This  makes  the  program  go  back  and  read  a 
new  set  of  Control  Cards. 


2:  Second  and  more 
The  program  will  go 
Control  Cards 


run  of  the  above  cycle 
back  and  read  more 


3:  Final  run  of  the  recycling.  The  pro- 

gram terminates  at  the  end  of  this  speci- 
fication . 

0 : Normal 

1:  Copy  back  the  final  output  results  on 

tape  4 to  tape  10.  For  this,  tape  10  must 
have  the  protector  ring  in.  This  copying 
takes  place  only  when  the  final  calculation 
has  been  run  successfully. 
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Parameter 

Columns 

Contents 

ISTP 

55 

0:  Program  will  be  terminated,  if  a 

nonpositive  definite  temperature  factor 
results . 

1:  Program  will  proceed  in  the  above 

case  by  resetting  the  temperature  factor 
to  0.0001  (for  isotropic)  or  the  original 
value  (for  anisotropic) . 

Control  Card 

No.  3 (615) 

Parameter 

Columns 

Contents 

NF 

5 

The  number  of  different  x-ray  form  factors 
NF  = 0 for  neutron  diffraction 

ICENT 

10 

1:  Centrosymmetric 

2:  Noncentrosymmetric 

NS 

14-15 

The  number  of  Symmetry  Cards.  For  centro- 
symmetric structure,  NS  is  equal  to  one- 
half  the  number  of  equivalent  positions. 
The  original  x,  y,  z should  be  included. 

(1  < NS  < 24) 

IFSQ 

20 

1:  Refine  (scale  x F) 
2:  Refine  (scale  x F)2 

IXFE 

25 

0:  No  extra  tape  for  ORFFE3 

1:  Extra  tape  for  ORFFE.  This  may  not 

be  specified  if  the  input  tape  9 is  used. 

2:  Punch  the  same  on  cards  for  ORFFE. 

Symmetry  Cards  (F11.6, 

212,  F11.6,  212,  F11.6,  212) 

For  a centrosymmetric  structure,  those  positions  related  by  the 
center  of  symmetry  are  not  required.  The  basic  x,  y,  z position 
must  be  included.  For  a centered- lattice , those  symmetries  related 
by  pure  translations  are  not  required,  but  the  atom  multiplier 
should  be  increased. 


o 

ERIC 


0 

x 

x 

y 

■y 

z 

• z 


10 

377 


blank 

1 

-1 

2 

-2 

3 

-3 
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Parameters  Columns 

Contents 

1-11 

translational  part  of  x 

12-13 

14-15 

symmetry  for  x direction 

16-26 

translational  part  of  y 

2 7-2  8 
29-30 

symmetry  for  y direction 

31-41 

translational  part  of  z 

42-43 

44-45 

symmetry  for  z direction 

Scale-Factor  Cards  (8F9.6) 


Parameters  Columns 

1-  9 

Contents 

first  scale  factor  Si 

10-18 

second  scale  factor  S2 

If  there  are  more  than  eight  scale  factors,  continue  to  additional 
cards.  All  scale  factors  in  this  program  apply  to  the  Fobs  value, 
rather  than  to  the  Fcai  values.  When  an  output  tape  of  a previous 
calculation  is  used  as  the  input,  F0bs  values  were  already  scaled 
so  that  the  scale  factors  used  here  should  be  1.0. 

Atomic-Parameter  Cards 

a)  First  Card  (A6,  3X,  5F9.6,  2F6.2) 


Parameters  Columns 

Contents 

1-  6 

Any  6 Hollerith  characters  identifying 
atom  i 

10-18 

X-ray  scattering  factor  identifier,  to 
specify  which  atomic  f to  use.  (1.0  ~ 
10.0)  For  neutron  problem,  this  is  the 
neutron- scattering  factor  itself. 

19-2  7 

A multiplier,  ai , this  number  is  usually 
1.0,  except  for  a special  position  or  dis 
ordered  atom,  or  for  a centered-lattice . 

28-36 

xi,  fractional  coordinate 

37-45 

yi 

46-54 

zi 
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4/70 

11 

T,8 

000  0064 


000  0064 


l 


EDUCATIONAL  INFORMATION  NETWORK 


EDUCOM 


000  0064  ; * 

i 


r 

k>  b) 


Columns  Contents 


55-60 


Af'~l  if  anomalous  dispersion  correction 
is  applied,  the  values  are  taken  as 
Af"  constant  for  sin0  value. 


Second  Card  (6F9.6) 


r 


i 

i 

f 


Co  lumns 

Contents 

1-  9 

T^ , the  isotropic  temperature 
3 1 1 

factor,  or 

10-18 

3 2 2 > (if  the  field  for  322  is 

zero,  the 

program  assumes  isotropic  temperature 
factor 

19-2  7 

3 3 3 

2 8-36 

3 1 2 

37-45 

3 1 3 

46-54 

0 2 3 

The  above  Atomic  Parameter  Cards  may  be  prepared  from  the  SFII  Co- 
ordinate Cards  (7070  or  1620)  by  a 1620  program,3  and  also  may  be 
converted  back  to  SFII  form.  If  anomalous  dispersion  correction 
is  applied  for  some  atoms,  the  Parameter  Cards  for  those  atoms 
should  be  placed  first. 

Parameter-Selection  Cards  (7211) 

These  cards  specify  the  NV  parameters  to  be  varied,  each  column  of 
the  cards  for  each  parameter,  in  the  order, 


Columns 

1 

2 

3 

4 

5 

6 

7 

8 
9 


Contents 

NQ  scale  factors 

scattering  factor  or 
multiplier 

xi 

yi 

zi 

Bi 


scattering  factor 
multiplier 

*i 

Yi 

zi 
3 i i 

3 2 2 

3 3 3 

3 1 2 
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Columns  Contents 

10  3 i 3 

11  3 2 3 


Punch  0 for  holding  constant 
1 for  refinement 

The  set  of  six  or  11  columns  repeat  for  all  atoms  used.  Continue 
from  Col.  72  of  one  card  to  Col.  1 of  a next  card.  At  present 
the  total  number  of  parameters  to  be  used  including  those  not  to 
be  varied  is  811.  This  card  is  not  used  if  the  number  of  cycle 
is  zero  (unrefined  structure  factors  only) . 

The  number  of  parameters  to  be  specified  for  each  atom  is  either 
six  or  11,  depending  on  whether  the  temperature  factor  of  an  atom 
is  isotropic  or  anisotropic.  When  using  mixed  mode  of  temperature 
factors,  that  is,  some  atoms  have  isotropic  and  others  have  aniso- 
tropic temperature  factors,  care  must  be  taken  to  count  and  fill 
up  the  columns  properly  for  six  or  11.  There  should  be  no  gap 
between  atoms , and  the  order  of  atoms  here  are  identical  to  the 
order  in  which  the  atomic  Parameter  Cards  are  read. 

Please  note  that  these  Parameter  Selection  Cards  are  different  from 
the  corresponding  ones  used  for  the  Block-Diagonal  Least-Squares 
programs3  (7090,  1130)  by  Shiono. 

Assembly  of  Cards 

7090  ID  Card  (Name,  time  estimate,  etc.) 

$$  Comment  card(s)  to  specify  scratch  or  private  tapes  on  10  and  4. 
$NEEDS  10 

$HALT  (If  a private  tape  is  used) 

$REM0VE  TAPES  (If  a private  tape  is  used  with  ring  on) 

$EXECUTE, I/O  DUMP 
Program  deck  (binary  cards) 

$DAT  A 1 

» 

Title  Card 
Control  Card  No.  1 
Cell  Constant  Card 
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Atomic-Scattering-Factor  Cards  (Set  of  eight,  as  many  sets  as  neces- 
sary up  tc  ten.  The  order  of  f's  corresponds  to  the  specification 
on  parameter  cards.) 

Blank  Card  (to  terminate  the  atomic  f’s) 

Reflexion-Data  Cards  (as  many  as  necessary) 

Blank  Card  (to  terminate  the  reflexions) 

Control  Card  No.  2 
Control  Card  No.  3 
Symmetry  Card(s) 

Scale  Factor  Card(s) 

Atomic-Parameter  Cards  (pair  of  cards  for  each  atom) 

Parameter-Selection  Card(s)  (not  used  if  unrefined  structure  fac- 
tors desired) 

If  JB  = 3,  Control  Card  No.  2 follows  immediately  after  Control 
Card  No.  1,  and  the  cards  between  them  are  not  used. 

If  JB  = 1,  omit  the  Reflexion-Data  Cards  and  a blank  card  behind 
them.  Control  Card  No.  2 follows  the  blank  card  behind  the  atomic 
f 's  . 


If  JB  = 1,  mount  the  input  tape  on  Tape  9,  and  a scratch  tape  on 
Tape  10.  If  JB  = 3,  mount  the  input  tape  on  Tape  10.  If  JB  = 2, 
the  output  is  on  Tape  10. 

The  calculated  results  will  be  written  on  Tape  4,  and  this  may  be 
used  as  an  input  to  the  Fourier  program  or  as  an  input  to  a later 
cycle  of  least-squares  program.3 

When  starting  with  the  reflexion  on  cards,  tapes  10  and  4 must 
have  their  protector  rings  on. 

Refinement  Cycles  With  Different  Set  of  Parameters  Varied 

Since  the  total  number  of  parameters  to  be  varied  and  refined  at  a 
time  is  limited  (at  present  181)  by  the  size  of  core  storage, 
sometimes  it  is  necessary  to  refine  a part  of  the  total  structure 
in  a cycle  or  two  and  then  switch  the  part  to  be  refined  until  all 
the  desired  parameters  have  been  refined.  This  may  be  done  by 
punching  a 1,  2 or  3 in  Col.  45  of  the  Control  Card  No.  2. 

Example  of  a setup  of  cards  is  shown  below. 
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Program  deck 
$DATA 

First  set  of  Control  Cards  for  the  first  selection,  1 in  Control 
Card  No . 2 , Col . 45  . 


For  second  or  more  refinement  cycles, 

Title  Card  

Control  Card  No.  1 JB  = 3 (Col.  5) 

Control  Card  No.  2 NR  = 2 (Col.  48) 

Control  Card  No.  3 

Symmetry  Cards 

Parameter  Selection  Cards  

Repeat  above  set  of  cards  as  many  as  necessary.  For  the  final 
set  of  parameter  selection  (this  may  follow  the  first  set  immedi- 
ately) , 

Title  Card 

Control  Card  No.  1 JB  = 3 (Col.  5) 

Control  Card  No.  2 NR  = 3 (Col.  45) 

Control  Card  No.  3 

Symmetry  Cards 

Parameter  Selection  Cards  — 

Symmetry  Cards  are  usually  redundant,  but  have  to  be  present  each 
time . 

If  certain  part  of  the  total  structure  is  not  going  to  be  refined 
in  all  cycles,  it  will  be  faster  to  have  this  part  calculated 
first  and  use  the  output  tape  as  the  input  for  fixed  contribution. 

Program  Deck  Makeup 

MAIN(l) 

SCAT 

SBTP 

MODIFY  (Dummy) 

BREAK  CARD 
MAINC2) 

CALC 

TEST 

SMI 

SBTOP 

PTOSB 

DTOD 
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OLD  I OH 

PATCH  (Dummy) 

RESETX  (Dummy) 

RESETB  (Dummy) , RSETW 

BREAK  CARD 

MAINC3) 

BREAK  CARD 

A BREAK  CARD  is  recognized  as  a card  with  12,  7 and  9 punches  on 
Col.  1 and  rest  of  the  columns  all  blank  up  to  Col.  72. 


V 


) 


O 

o 

o 

Q 

o 

ON 

4* 


Magnetic  Tape  Assignment 

Logical  tape  addresses  used  in  the  program  as  compiled,  are  as 


follows . 

Symbo lie 

Logioa l 

Physical 

NTPA 

7 

B1 

Michigan  System  Input 

NTPB 

6 

A3 

Michigan  System  Output 
(print) 

NTPF 

5 

A3 

Michigan  System  Output 
(card) 

NTPG 

10 

A5 

Output  of  Part  I,  Input  of 
Par*  II 

NTPC 

9 

B5 

Tape  input  data  to  Part  I 
(if  used)  or  output  tripe  of 
parameters  to  be  used  in 
ORFFE . 3 

NTPE 

4 

A4 

Output  of  Part  II  (identical 
format  of  NTPG) 

Specification  of  the 

Subroutines  for 

the  User 

1.  MODIFY  Subroutine 

This  subroutine  is  entered,  if  so  specified,  in  the  Part  I,  to 
modify  reflexion  data.  After  reading  a reflexion  from  card  or 
tape,  the  main  program  calculates  the  Bragg  angle  and  the  weight 
according  to  the  specification  and  enters  this  subroutine,  just 
before  writing  the  reflexion  on  another  tape, 

SUBROUTINE  MODIFY  (FH , FK , FL  , FOBS  , FCAL  , A4>  ,AC  ,B4>  ,BC  ,SIG  , 

Q , ID , SINT ,CA ,CB ,CC ,CD , CE , CF , RA ,RB) 


Parameters 


Contents 


FH, FK, FL  Miller  indices  h,k,A 


16 
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Parameters 

FOBS 

FCAL 

A$ 

AC 

B4> 

BC 

SIG 


Contents 

observed  F (or  F2) , punched  on  card  or  from  Tape  9 

calculated  F 

observed  F,  real  part 

calculated  F,  real  part 

observed  F,  imaginary  part 

calculated  F,  imaginary  part 

standard  error  of  F 


Q designation  for  scale  factor 

ID  0 or  1 for  observed  or  unobserved 


SINT 

CA,CB,etc. 

RA,RB 


sine  theta  (Bragg  angle) 

A,B,C,D,E,F  punched  on  the  Control  Card 

Extra  values  on  reflexion  data  on  tape.  These  values 
may  be  entered  from  the  input  card.  Partial  dif- 
ference Fourier  requires  Acai,  BCgi  (partial)  be 
transferred  to  RA,RB  here.  (see  Fourier  writeup)3 


The  values  such  as  FCAL,  A4>,  AC,  B4> , BC  are  meaningful  only  when 
the  input  is  the  output  tape  of  a previous  structure  factor  (or 
least-squares)  calculation. 

In  order  to  exclude  a reflexion  from  the  leas t-squares . ref inement , 
SIG  should  be  set  to  0.0,  which  will  in  turn  set  w (weight)  = 0. 
Should  a reflexion  be  omitted  entirely  from  the  rest  of  the  pro- 
cessing, set  ID  = 10. 

The  following  three  subroutines  are  explained  in  Ref.  4 and  the 
user  should  consult  that  report.  Only  the  dimension  of  some 
arrays  have  been  changed  in  the  current  program  and  they  are 
listed  here. 


SUBROUTINE  PATCH  ( I , Td , Hd ,HHd) 
DIMENSION  Hd(3),  HHJ(6) 

SUBROUTINE  RESETX  (XYZ) 
DIMENSION  XYZ  (3,85) 

SUBROUTINE  RESETB  (BETA) 
DIMENSION  BETA  (6,85) 


t 
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1.  RSETW  Subroutine 

This  subroutine  is  entered  for  each  reflexion  after  the  comple- 
tion of  the  structure  factor  calculation  and  before  the  weight 
is  multiplied  to  various  values  in  derivative  calculation. 

SUBROUTINE  RSETW  (FOBS,FCAL,A,B,SIGYO,SINT, ID) 

RETURN 

END 

FOBS  F0bs  va^ue  alread7  scaled 

FCAL  F„,  (absolute) 

C ci  J. 

A,B  A,B  part  of  Fca^  with  signs 

SIGYO  a,  for  zero  weight,  set  a = 0 
SINT  sinQ  value 

ID  0 for  observed  and  1 for  unobserved 

Any  changes  made  here  will  not  affect  the  contents  of  Input  Tape 
10  unless  it  is  so  specified  to  copy  back  the  final  Output  Tape 
4 to  Tape  10. 

When  the  user  is  supplying  his  subroutine  to  replace  a dummy  sub- 
routine in  the  binary  deck,  this  may  be  done  in  two  ways  , 

(a)  Compile  and  punch  out  the  object  deck  of  the  subroutine  first, 
and  then  place  this  binary  deck  in  front  of  the  dummy  subroutine 
which  is  going  to  be  replaced,  but  not  before  the  BREAK  Card  pre- 
ceding that  part  of  the  program.  The  system  will  use  the  first 
subroutine  loaded. 


(b)  You  may  compile  a subroutine  and  execute  the  entire  program 
at  the  same  time.  For  this,  place  the  source  deck  instead  of  the 
binary  deck  of  the  subroutine  as  in  (a),  with  a card  $C0MPILE  FOR- 
TRAN, PUNCH  OBJECT,  PRINT  OBJECT  preceding  it.  The  system  first 
compiles  the  subroutine  and  then  executes  the  entire  program. 

In  either  case,  the  cards  for  MODIFY  should  be  placed  in  front  of 
the  Binary  Deck,  and  those  for  PATCH,  RESE7X,  RESETB  or  RSETW 
should  be  placed  immediately  behind  the  first  BREAK  Card.  If  the 
compilation  is  done  with  the  execution,  Tape  9 is  needed  in  com- 
pilation and  therefore,  cannot  be  used  as  the  input  tape. 


Atoms  in  Special  Positions 

Atoms  in  special  positions  have  to  be  handled  differently  from 
other  atoms  in  general  positions.  Three  subroutine  entries  are 
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provided  to  cope  with  the  situation,  if  necessary,  and  they  are 
PATCH,  RE5ETX , and  RE5ETB . The  dummy  subroutine  provided  with 
the  deck  may  be  replaced  by  a user’s  subroutine,  by  placing  the 
source  statement  cards  preceded  by  a $C0MPILE  FORTRAN  Card,  or 
the  compiled  Binary  Cards  in  front  of  the  one  to  be  replaced. 

The  detailed  instructions  for  handling  special  positions  are  given 
in  Ref.  4,  pp.  14—22. 

Reflexion-Tape  Record  Format 

The  program  uses  the  identical  record  format  for  the  intermediate- 
input  -reflexion  data,  and  the  output  of  structure -factor  calcula- 
tion. This  format  is  further  identical  to  that  of  the  Fourier 
Input  Tape,  so  that  either  the  intermediate  tape  (Tape  10)  or  the 
final  output  (Tape  4)  may  be  used  as  an  input  of  the  Fourier  pro- 
gram3 for  calculating  Patterson  summation  or  Fourier  summation, 
respectively. 

The  tape  is  written  in  binary  mode,  and  the  first  record  is  dif- 
ferent from  the  rest  of  the  data. 

First  Record  (13  words) 

1/4  * a*2 , 1/4 ‘b* 2 , 1/4 ' c*2 , 1/4  * a*b*cosy* , 1/4  * a*c*cosB*  , 

1/4 ’b*c*cosa* , a,  b,  c,  cosa,  cosS,  cosy,  X. 

Second  to  the  (last-1)  Record  (26  words) 


Only  ID  is  in  fixed-point  number  (integer) . 

Last  Record 

Identical  to  the  preceding  reflexion  data  except  h = 999.  This 
is  used  to  recognize  the  end  of  data. 


Parameters 


Q 

ID 

RA,RB 


a 


Contents 

Miller  indices 

Standard  error 

Scale-factor  identifier 

0 or  1 for  observed  or  unobserved 

Extra  values 
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Programmed  Termination 

In  several  points  of  the  program  execution,  the  run  will  be  term- 
inated before  completion  when  certain  conditions  are  not  met. 

1.  Parameter  Selection  Cards  Error 

If  the  number  of  parameters  to  be  refined  does  not  match 
the  sum  of  l’s  punched  fin  the  Parameter  Selection  Cards, 

' ' the  program  will  exit. 

2.  Nonpositive-Definite  Temperature  Factor 

If  a temperature  factor  becomes  nonpositive-definite  after 
applying  a shift,  the  program  will  terminate  any  further 
refinement  (Reason  1) . 

3.  No  Improvement  in  Refinement 

If  Zo)  (AF) 2/ (No . of  observation-No.  of  Parameters)  is  not 
decreasing  from  the  previous  cycle,  the  refinement  will  be 
terminated  at  the  end  of  current  cycle  (Reason  2) . 

4.  Singular  Matrix 

If  the  matrix  to  solve  the  shifts  is  a singular  matrix,  the 
refinement  will  be  terminated.  When  this  happens,  the  matrix  j 
elements  printed  may  be  partially  invented. 

Li  mi tati ons 

The  program  deck  as  compiled  has  the  following  capacity  for  vari- 
ous variables. 


Variab les 

Number  of  reflexions 

Number  of  atoms 

Number  of  scale  factors 

Number  of  total  parameters 

Number  of  parameters  to  be  refined 

Number  of  symmetry  relations 

Number  of  different  kind  of  atoms 

Number  of  anomalous  dispersing  atoms 


Maximum  Limit 
no  limit 

(one  magnetic  tape) 


85 

85 

20  - 

20 

811 

811 

181 

181 

24 

24 

10 

10 

10 

10 

The  part  2 of  the  program  has  some  locations  available  for  the  use 
of  user’s  subroutines  PATCH,  RESETX,  RESETB  and  RSETW. 
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When  a structure  has  some  variables  beyond  the  limit  of  the  numbers 
listed  above,  it  may  be  possible  to  change  the  program  to  handle 
the  structure  by  recompiling  the  program  with  changed  dimension 
s tatements . 


With  the  partial  mode,  unlimited  number  of  atoms  may  be  used  with 
multiple  passes. 


Output 
I.  Card 

New  scale  factors,  and  the  atomic  parameters  will  be  punched  out 
for  every  cycle  of  refinement.  These  cards  are  in  the  format  iden- 
tical to  the  input,  and  may  be  used  in  further  refinement.  If  so 
specified,  the  input  cards  for  ORFFE3  may  be  punched. 


II.  Print 

All  information  on  the  two  Control  Card?,  (Nos.  2 and  3)  as  well  as 
the  Parameter  Cards  will  be  printed  first.  For  each  cycle,  all 
structure  factors,  the  agreements  and  the  old  and  new  parameters 
will  be  printed.  Also  one  more  set  of  structure  factors  will  be 
calculated  and  printed  out  using  the  last  parameters.  If  inter- 
mediate printing  is  suppressed,  structure  factors  are  printed  only 
from  the  last  calculation. 

At  the  end,  the  correlation  matrix  for  the  parameter,  agreement 
indices  for  various  groups  of  reflexions  and  average  (AF/ka)2 
will  be  printed  out. 

NOTE:  If  a private  tape  is  used  for  Tape  1C  and/or  4,  a card 

with  $HALT  punched  in  Cols.  1—5  should  be  inserted  immediately 
behind  the  $$  Card(s)  for  comment.  This  will  halt  the  program 
and  enable  operator  to  mount  the  tape. 

REFERENCES 

1.  Hughes,  E.W.,  "The  Crystal  Structure  of  Melamine,"  J.  Amer. 
Soc.,  63,  1737-52  (June,  1941). 

2.  Pepinsky,  R. , Robertson,  J.M. , and  Speakman,  J.C.,  editors, 
"Proceedings  of  Conference  on  Computing  Methods  and  the  Phase 
Problem  in  X-Ray  Crystal  Analysis  Held  at  University  of  Glas- 
gow in  I960,"  (Bergamon,  New  York,  1961),  p.  45. 

3.  Additional  information  may  be  obtained  through  the  contact 
person . 
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SAMPLE  INPUT 


3>  DA  I A 

TEST  STRUCTURE  OF  U MO 


C-< 


ACTA.  1 7 » 272  ( 1964) 


0 u 

1 0 

0 20. 

5.625  3.249 

10.900 

♦70926 

92.0000 

91.5400 

90.2096 

00.2013 

05.7514 

03.0623 

00.3400 

1 

77.6645 

75.0005 

72.6012 

70 • n0  06 

67.0709 

65.6365 

63.4953 

2 _ 

61.4569 

59.5156 

57.6656 

55.9006 

54.2126 

52.5939 

51.0467 

3 

49.5666 

48.1595 

46.0144 

45.6283 

44.2965 

43.1127 

41.9702.,  . 

..  ._4 

40.0910 

39.0500 

36.0623 

37.8940 

36.9744 

36.0066 

35.2322 

5 

34.4101 

33.6190 

32.0575 

32. 1239 

31.4164 

30.7320 

30.0727 

6 _ 

29.4350 

20.0100 

20.2207 

27.6434 

27.0057 

26,5407 

26.0290 

7 

25.5274 

25.0402 

.0000 

.0000 

.0000 

.0000 

.0000 

0 - 

42.0000 

41.7204 

40.9910 

39.6552 

30. 1626 

36.5453 

34.9354 

1 

33.3090 

31.9567 

30.6142 

29. 3460 

20.1393 

26.9869 

25.8978  . 

—2 — 

24.0729 

23.9170 

23.0234 

22.1030 

21 .3883 

20.6265 

19.9051 

3 

19.2227 

10.56U4 

17.9743 

17.4005 

16.0556 

16.3349 

15.8397 

4 - 

15.3606 

14.9208 

14.4945 

14.0076 

13.6970 

13.3200 

12.9596 

5 

12.6144 

12,2068 

11.9750 

11.6702 

11.3926 

11.1143 

10.8463 

6 - 

10.5086 

10.3421 

10.1066 

9.0001 

9.6610 

9.4491 

9. 2434 

7 

9.0440 

0.8534 

.0000 

.0000 

♦ 0000 

.0000 

.0000 



6.0000 

5.9008 

5.9401 

5.8570 

5.7461 

5.6080 

5.4502 

5.2741 

5.0853 

4.0083 

4.6849 

4.4705 

4.2735 

4.0731 

_ 

3.8775 

3.6805 

3.5109 

3.3440 

3.1003 

3.0414 

2.9044 

2.7771 

2.6594 

2.5511 

2.4535 

2.3640 

2.2841 

2.2107 

.. 

2.1432 

2.0017 

2.0250 

1.9749 

1.9279 

1 .0R5O 

1.0459 

1.0103 

1.7770 

1.7401 

1.7209 

1.6952 

1.6706 

1.6476 



1.6262 

1.6062 

1.5073 

1.5694 

1.5522 

1.5347 

1.5174 

1.5006 

1.4842 

0. 

0. 

0. 

0. 

0. 

0 

0 

u 

0 

1 

1 

1 

1 

1 

1 

2 

2 

2 

2 

2 

2 

2 

2 

3 

3 

3 

3 

4 

4 

5 


0 

0 

0 

0 

1 

1 

1 

2 

2 

2 

0 

0 

0 

1 

1 

1 

2 

2 

0 

0 

1 

3 

0 

1 

1 


2 

26. 

4 

278, 

6 

56. 

0 

101. 

1 

113. 

2 

333. 

3 

144. 

1 

49. 

2 

53. 

3 

154. 

0 

170. 

1 

210. 

2 

25. 

0 

124. 

1 

60. 

2 

00. 

0 

134. 

1 

170. 

2 

122. 

12 

103. 

11 

79. 

1 

151. 

1 

102. 

10 

155. 

2 

192. 

1 

0 

0 

0 

0 

u 

0 

0 

0 

0 

0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


13 

0 


1 

-1 


2 

-2 


0.5 


1.0 

U 

1.0  ... 

. 1.0 

.0619 

.25 

• 1421 

-is*  

0.20 

MO 

2*0 

It  0 

.4191 

• 25 

.0986 

-1.7  0.9 

0.39 
C 1 

_ 3 • Q . 

1.0 

• 153 

.25 

• 752 

0.61 

2_s0 

1*0 

.751 

.25 

.005 

o.oo" 
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TEST  STRUCTURE  OF  U MO  C-2  ACTA.  17,  272  (196*1 

CALCULATED  F 0ASED  ON  PARAMETERS  BEFORE  CYCLE  1 


H 

K 

L 

F ( OBS ) 

F (CALC ) 

A 

B 

SINE 

S IG( 0 ) 

( O-C ) /S IG( 0 ) 

IQ 

ID 

0 

0 

2 

26.0000 

20.5575 

-17.9*95 

-10.0212 

.065 

80.0000 

.0660 

1 

1 

0 

0 

4 

278.0000 

299.92*7 

-295.7*36 

-49.9053 

.129 

278.0000 

-.0789 

1 

0 

3 

3 

151.0000 

159.2B2B 

155.7*73 

33.3733 

• 38C 

151.0000 

-.0549 

1 

0 

4 

0 

i 

182.0000 

19*. 7788 

-191.2908 

-36.6962 

.254 

182.0000 

-.0702 

1 

0 

4 

1 

10 

155.0000 

152.6271 

1*7.1829 

40.4007 

• 424 

155.0000 

.0153 

1 

0 

5 

1 

2 

192.0000 

192.8319 

187.86** 

43.4871 

• 340 

192.0000 

-.0043 

1 

0 

AGREEMENT  FACTORS  BASED  ON  PARAMETERS  BEFORE  CYCLE  1 

SUM ( W*  ( O-C (••21  IS  .6939E-01 

SQRTF ( SUM( W»(0-C)«*2)/( NO-NV I I IS  .0760 


NUMERATOR 

DENOMINATOR 

R 

R FACTOR 

INCLUDING 

i UN08S 

154.164 

3440.000 

• 045 

R FACTOR 

OMITTING 

UNOBS 

146.349 

3389.000 

• 043 

WEIGHTED 

R FACTOR 

INCLUDING  UNOBS 

.263 

4.605 

.057 

WEIGHTED 

R FACTOR 

OMITTING  UN08S 

.253 

4.583 

.055 

TEST  STRUCTURE  OF  U MO  C-2  ACTA.  17,  272  (196*) 

PARAMETERS  AFTER  LEAST  SQUARES  CYCLE  1 


parameter 

OLD 

CHANGE 

NEW 

ERROR 

SCALE  FACTOR 

1.0000000 

.0037115 

1.0037115 

•0283736 

U 

FORM  FACTOR 

1.0000000 

1.0000000 

MULTIPLIER 

1.0000000 

1.0000000 

X 

.0819000 

-.0012*66 

.0806533 

.0016965 

Y 

.2500000 

. 25000C0 

l 

.1*21000 

.000*068 

.1425068 

•0008369 

ATOMIC  B 

.2000000 

-.0092766 

.1907234 

•1886939 

C 2 

• 

• 

FORM  FACTOR 

3.0000000 

3.0000000 

MULTIPLIED 

1.0000000 

1.0000000 

X 

.7510000 

-.0301996 

.7208003 

.0225634 

Y 

.2500000 

.2500000 

l 

.0050000 

-.0061*85 

-.0011485 

.0173400 

ATOMIC  8 

.0000000 

1.681828* 

1.6818264 

1.9679505 

ESTIMATED  AGREEMENT  FACTORS  BASED  ON  PARAMETERS  AFTER  CYCLE  1 

SUM ( W* ( O-C ) »*2 ) IS  . 3529E-01 

SQRTF ( SUM( W* ( O-C ) **2) / ( NO-NV ) ) IS  .05*2 
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TEST  STRUCTURE  GF  U M0  C-2  ACTA.  17,  272  (1964) 


CALCULATED  F Baolu  ON  PARAMETERS  BEFORE  CYCLE  2 


H 

K 

L 

FI08S) 

FICALC) 

A 

8 

SINE 

SIG(O) 

(0-C)/SlG(0) 

IQ 

ID 

0 

0 

2 

26.0965 

20.0279 

-17.2174 

-10.2313 

• 065 

80.0000 

.0756 

1 

1 

0 

0 

4 

279.0318 

298.0844 

-293.9271 

-49.6104 

.129 

278.0000 

-.0683 

1 

0 

0 

0 

6 

56.2078 

57.9914 

50.4084 

28.6706 

• 194 

80.0000 

-.0222 

1 

0 

0 

0 

8 

181.6718 

1 7 6. '"’9  5 5 

173.8244 

33.3538 

• 258 

181  • 0000 

.0257 

1 

0 

1 

1 

1 

113.4194 

III. 5944 

-110.2726 

-17.1248 

.130 

113.0000 

.0161 

1 

0 

1 

1 

2 

334.2359 

314.6329 

-311.1165 

-46.9083 

.142 

333.0000 

.0587 

1 

0 

1 

1 

3 

144.5345 

145.2431 

143.4101 

23.002’ 

.159 

144.0000 

-.0049 

1 

0 

1 

2 

1 

49.1819 

48.7262 

-41.5077 

-25.5215 

.230 

80.0000 

.0057 

1 

0 

1 

2 

2 

53.1967 

52.8388 

47.8116 

22.4942 

.236 

80.0000 

.0045 

1 

0 

1 

2 

3 

154.5716 

137. 8471 

132.2144 

39.0024 

.247 

154.0000 

.1082 

1 

0 

2 

0 

0 

178.6607 

176.7828 

174.3810 

29.0419 

.126 

178.0000 

.0105 

1 

0 

2 

1 

210.7794 

217.1951 

-214.1845 

-36.0378 

.130 

210.0000 

-.0304 

1 

0 

2 

0 

2 

25.0928 

25.2177 

-24.6249 

-5.4356 

* 142 

80.0000 

-.0016 

1 

1 

2 

1 

0 

124.4602 

129.1477 

-122.5902 

-40.6296 

.167 

124.0000 

-.0377 

1 

0 

2 

1 

68.2524 

70.5149 

-67.5469 

-20.2428 

.170 

80.0000 

-.0282 

1 

0 

2 

1 

80.2969 

83.3624 

82.7058 

10.4424 

. 179 

80.0000 

-.0382 

1 

0 

2 

2 

0 

134.4973 

13’. 5550 

-130.4895 

-28.4506 

.252 

134.0000 

.0070 

1 

0 

2 

2 

1 

170.6310 

164.6388 

160.8063 

35.3167 

• 254 

170.0000 

.0351 

1 

0 

3 

0 

2 

122.4528 

120.4900 

-111.0855 

-46.6674 

.200 

122.0000 

.0160 

1 

0 

3 

0 

12 

183.6792 

179.2926 

172.2991 

49.5869 

.431 

183.0000 

.0239 

1 

0 

3 

1 

11 

79.2932 

81.3062 

69.6187 

41.9991 

.417 

80.0000 

-.0251 

1 

0 

3 

3 

1 

\51.5604 

150.1268 

146.4191 

33.1587 

• 380 

151.0000 

.0095 

1 

0 

4 

0 

1 

.82.6755 

188.3604 

-184.6502 

-37.2011 

.254 

182.0000 

-.0311 

1 

0 

4 

1 

10 

155.5753 

156.7659 

151.2343 

41.2762 

• 424 

155.0000 

-.0077 

1 

0 

5 

1 

2 

192.7126 

189.7096 

184.8885 

42.4972 

• 340 

192.0000 

.0156 

1 

0 

AGREEMENT  FACTORS  BASED  ON  PARAMETERS  BEFORE  CYCLE  2 


n 


SUM(WM0-C)**2)  IS  • 3582E-0I 


SQRTF(SUM(W*(0-C)**2)/(N0-NV))  IS  .0546 


NUMERATOR 

DENOMINATOR 

R 

R FACTOR 

INCLUDING 

UN08S 

116.299 

3452.768 

• 034 

R FACTOR 

OMITTING 

UN08S 

110.105 

3401.578 

.032 

WEIGHTED 

R FACTOR 

INCLUDING 

UNOBS 

.189 

4.605 

.041 

WEIGHTED 

R FACTOR 

OMITTING 

UN08S 

.174 

4.583 

.038 

26 


continued 

O 

4/70 


393 


EDUCOM 


EDUCATIONAL  INFORMATION  NETWORK 


000  0064 


continued 


000  0064 


EDUCATIONAL  INFORMATION  NETWORK 

000  0064 


EDUCOM 


000  0064 


i 


. 


EDUCOM 


COST  ESTIMATE 

Unfortunately,  exact  figures  are  not  available  for  central -processor 
time.  The  program  listed  on  the  Sample  Input  used  approximately 
10.8  minutes  of  central -processor  time.  At  the  current  rate  of 
$250/hour  at  the  University  of  Pittsburgh,  the  chargeable  computer 
time  was  approximately  $45.00. 

Cost  to  user  = computer  time  + network  overhead 

= $45.00  (estimated)  + network  overhead 
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DESCRIPTIVE  TITLE  Factor  Analysis  by  Direct  "Oblimin" 

Method 


CALLING  NAME  OBLIMIN 


Educational  Testing  Service  (ETS) 
Office  of  Data  Anal>sis  Research 


INSTALLATION  NAME 

AUTHOR ( S ) AND 
AFFILIATION(S) 

LANGUAGE 
COMPUTER 
PROGRAM  AVAILABILITY 

CONTACT 


Procedure  due  to: 
Program  due  to: 


R.  Jennrich,  UCLA 

R.  Jennrich  and 
H.  Harman,  ETS 


Adaptation  due  to:  J.  Barone,  ETS 

FORTRAN  IV 
IBM  360/65 

Decks  and  listings  presently  available 

Mr.  Ernest  Anastasio,  Office  of  Data 
Anal.  Research,  Educational  Testing 
Service,  Rosedale  Road,  Princeton,  N.J. 
08540 

Tel.:  (609)  921-9000  ext.  2552 


FUNCTIONAL  ABSTRACT 

Factor  analysis  provides  that  the  final  solution  be  in  terms  of 
either  uncorrelated  factors  or  correlated  factors.  Beginning 
in  the  mid-1940’s,  following  the  leadership  of  Thur stone,  there 
was  a trend  toward  the  acceptance  of  oblique  factors.  This 
trend  has  continued  to  the  present  day  but,  unfortunately, 
efficient  objective  means  for  getting  oblique  "simple  structure" 
solutions  have  not  generally  been  available  even  with  modern 
computers.  In  1958,  John  B.  Carroll  introduced  a whole  class 
of  methods  for  oblique  transformation  to  simple  structure. 

These  have  come  to  be  known  by  the  term  "oblimin"  (Ref.  1,  pp. 
324—326),  since  they  involve  oblique  factors  and  the  minimiza- 
tion of  a function.  The  oblimin  criterion,  which  is  to  be 
minimized,  is  given  in  normalized  form  by, 


1. 


m 

B = Z 
p<q=l 


nZ  (v?A?)(v?A?)  -Y  ? v?  /h?  Z v2/h? 

j = 1 JP  J j J4  J 


j = l 


jp  rv  jq  i 
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The  v's  in  these  expressions  are  the  elements  of  the  reference- 
factor  structure  matrix,  i.e.,  the  correlations  between  the 
original  variables  and  the  reference  factors.  Actually,  what  is 
desired  is  to  have  the  primary  factor  pattern  exhibit  the  princi- 
ples of  simple  structure,  i.e.,  large  values  and  near-zero  values. 
In  the  Thurstone  school  the  "reference  structure  V"  is  sought 
that  exhibits  the  simple  structure  principles,  and  then  the 
primary  factor  pattern  is  obtained  by  multiplying  the  matrix  V 
by  a diagonal  matrix. 


The  foregoing  indirect,  and  somewhat  awkward,  procedure  has 
recently  been  replaced  by  a direct  approach  (Ref.  2).  Instead 
of  working  with  the  reference  factors  that  are  biorthogonal  to 
the  primary  factors,  Jennrich  and  Sampson  set  up  a criterion 
for  the  direct  determination  of  the  primary  factors  that  exhibit 
the  simple  structure  principles.  That  criterion  may  be  put  in 
the  form, 


m 


2. 


F (A)  = l 

p<q=l 


n 
2 

li-i 


aiPa!q 


s ? 
M-l 


a? 


n 

jp  j=i 


a? 


jq 


where  A is  the  matrix  of  primary  factor  coefficients.  Of  course, 
the  loadings  may  be  normalized  by  rows  just  as  in  equation  1. 

An  important  difference  is  that  the  y in  the  indirect  method 
ranges  between  zero  and  one,  while  the  6 in  equation  2 should 
be  zero  or  negative. 


The  object  of  OBLIMIN  is  to  minimize  equation  2.  The  criterion 
employed  is, 


where  i is  the  iteration  number.  Tl\3  output  is  an  oblique  factor 
solution  satisfying  the  principles  of  simple  structure,  more  or 
less.  When  6 is  equal  to  zero,  the  factors  are  most  oblique. 

For  negative  values  of  6,  the  factors  become  less  oblique  as  6 
gets  smaller.  The  solution  consists  of  the  factor  pattern,  the 
correlations  among  the  factors,  and  the  factor  structure.  At 
the  present  time,  the  program  is  limited  to  n - 100  variables 
and  m - 15  factors . 


REFERENCES 

Harman,  H.H. , Modern  Factor  Analysis , Second  edition,  revised, 
(University  of  Chicago  Press,  Chicago,  111.,  1967) 

Jennrich,  R.I.,  § Sampson,  P.F.,  "Rotation  for  Simple  Loadings," 
Psy ohometrika , 1966,  31,  313—323. 
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USER  INSTRUCTIONS 
System  Control  Cards 

JOB  Card  will  be  prepared  by  ETS  personnel. 
System  Card  1 


Columns 

Contents 

1-37 

//STEPNAME 

EXEC  GITNGO 

,NAME=OBLIMIN 

System  Card 

2 

Columns 

Contents 

1-19 

//GO. SYSIN 

DD  * 

System  Card 

3 

Columns 

Contents 

1-  2 

// 

Problem  Card 

Parameter 

Columns 

Format 

Description 

N 

3-  5 

13 

Number  of  variables  (£  100) 

M 

6-10 

15 

Number  of  factors  C<  15) 

DEL 

11-15 

F5.1 

Delta  (except  for  experimental 
purposes,  6^0;  if  several 
values  are  used,  smallest 
goes  in  this  field) 

EPS 

16-25 

F10.6 

Convergence  criterion 
(usually  = .00001) 

MAXI 

26-30 

15 

Maximum  number  of  iterations 
(usually  50) 

IF 

31-35 

15 

Original  factor  pattern 

option : 

1 = orthogonal  (usual  case, 
requires  no  additional 
input) 

0 = oblique  (correlations 
among  the  original  fac- 
tors must  be  input  in 
addition  to  the  pattern) 
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Parameter 

Co lumns 

Format 

Description 

K 

36-40 

15 

Kaiser  normalization  option: 
1 = used  (usual  case) 

0 ■ not  used 

DINC 

41-45 

F5.1 

Delta  increment  (must  be  a 
positive  number) 

DEND 

46-50 

F5.1 

Largest  delta 

NOSTOP 

51-55 

15 

1 = additional  problem(s) 
to  follow 
0 = last  problem 

NOTE : The 

delta  and 

last  three 
one  problem 

fields  may  be 
are  run. 

blank  if  only  one  value  of 

Format  Card 

The  format  specification  starts  in  Col.  2 and  may  not  extend 
beyond  Col.  72.  The  word  FORMAT  is  not  used.  The  standard 
FORTRAN  variable  format  is  followed. 

Data  Cards 

Keypunc1.  original  factor  pattern  by  rows  according  to  its  for- 
mat,  starting  each  variable  on  a new  card. 

Factor  Correlations  Cards 

When  the  original  factor  pattern  is  oblique,  a "0"  must  be  put 
in  Col.  35  of  the  Problem  Card,  and  the  following  cards  must 
be  inserted  at  this  point, 

(a)  FORMAT  Cards  (Cols.  2-72) 

(b)  Correlations  among  factors,  starting  a new  card  for  each 
factor 


Title  Card 

Name  of  problem  in  Cols 

Order  of  Cards 

JOB  Card 
System  Card  1 
System  Card  2 
Problem  Card 
Format  Card 


2-80 
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Data  Cards 

Factor  Correlations  Cards 
Title  Card 

/* 

System  Card  3 
Description  of  Output 

See  Functional  Abstract  for  a description  of  the  output  of 
OBLIMIN. 
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SAMPLE  INPUT 


//  JOB  ( 

//STEPNAME  EXEC  GITNGO ,NAME=OBLIMIN 
//GO.SYSIN  DD  * 

8 2 0.0  0.000010  50  1 1 -0.5  -2.0  0 

(2F10.5) 

0.85600  -0.32400 

0.84800  -0.41200 

0.8Q800  -0.40900 

0.83100  -0.34200 

0.75000  0.57100 

0.63100  0.49200 

0.56900  0.51000 

0.60700  0.35100 

/* 

// 
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SAMPLE  OUTPUT 


DELTA  = 0.00 

ROTATION  FOR  DIRECT  OBLIMIN  LOADINGS 


ITERATION 

0 

1 

2 

3 

4 


DIROBL 

CRITERION 

2.905183 

2.683994 

0.731741 

0.072721 

0.072715 


AFTER  ROTATION  WITH  KAISER  NORMALIZATION 


FACTOR  PATTERN 


1 

0.88272 

0.06520 

2 

0.95632 

-0.02946 

3 

0.92599 

-0.04505 

4 

0.88163 

0.03492 

5 

0.00471 

0.94040 

6 

-0.00647 

0.80317 

7 

-0.06549 

0.79280 

8 

0.10374 

0.64627 

FACTOR 

CORRELATIONS 

1 

1.00000 

0.47149 

2 

0.47149 

1.00000 

FACTOR 

STRUCTURE 

1 

0.91346 

0.48139 

2 

0.94243 

0.42143 

3 

0.90475 

0.39154 

4 

0.89810 

0.45060 

5 

0.44809 

0.94262 

6 

0.37221 

0.80012 

7 

0.30831 

0.76192 

8 

0.40845 

0.69518 

continued 
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\ lo  DELTA  = -0.50 

VO 

O 

° ROTATION  FOR  DIRECT  OBLIMIN  LOADINGS 

o 

o 

o 


DELTA  = -1.00 

ROTATION  FOR  DIRECT  OBLIMIN  LOADINGS 


DELTA  = -1.50 

ROTATION  FOR  DIRECT  OBLIMIN  LOADINGS 


( ’ 

DELTA  = -2.00 


ROTATION  FOR  DIRECT  OBLIMIN  LOADINGS 


ITERATION 

DIROBL 

CRITERION 

0 

9.111930 

9 

7.357594 

1 

9.050656 

10 

7.303166 

2 

8.985585 

11 

7.282603 

3 

8.874997 

12 

7.275172 

4 

8.695285 

13 

7.272531 

5 

8.426510 

14 

7.271598 

6 

8.080988 

15 

7.271269 

7 

7.735189 

16 

7.271153 

8 

7.487005 

17 

7.271112 

AFTER  ROTATION  WITH 

KAISER 

NORMALIZATION 

continued 
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FACTOR  PATTERN 


1 

0.86186 

0.14201 

2 

0.92372 

0.05725 

3 

0.89278 

0.03949 

4 

0.85778 

0.11269 

5 

0.09845 

0.90789 

6 

0.07392 

0.77446 

7 

0.01569 

0.75917 

8 

0.16504 

0.63294 

FACTOR 

CORRELATIONS 

1 

1.00000 

0.30538 

2 

0.30538 

1.00000 

FACTOR 

STRUCTURE 

1 

0 90522 

0.40520 

2 

0.94121 

0.33934 

3 

0.90484 

0.31213 

4 

0.89219 

0.37464 

5 

0.37570 

0.93795 

6 

0.31043 

0.79704 

7 

0.24753 

0.76396 

8 

0.35833 

0.68334 

o 

o 

o 

o 

o 

ON 

t/1 


o 

ERIC 
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LO 

a COST  ESTIMATE 
o 

0 Exact  figures  for  the  program  listed  on  the  Sample  Input  are  not 
o available.  As  an  approximate  guide  to  the  user,  an  OBLIMIN  run 
° whose  parameters  lie  within  the  specified  range  will  cost  less 
than  $20.00  with  a typical  cost  of  less  than  $10.00. 

Approximate  cost  to  user  = computer  time  + postage  and  handling  + 

network  overhead 

= $10.00  + $5.00  + network  overhead 
= $15.00  + network  overhead 


CONTENTS— OBLIMIN 
pages 

1-  2 Identification  § Abstract 

3-  5 User  Instructions 

7-10  I/O 

11  Cost — Contents 
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DESCRIPTIVE  TITLE 

CALLING  NAME 
INSTALLATION  NAME 

AUTHOR(S)  AND 
AFFILIATION (S) 


LANGUAGE 


Unrestricted  Maximum  Likelihood  Factor 
Analysis 

UMLFA 

Office  of  Data  Analysis  Research 
Educational  Testing  Service 


K.  G.  Joreskog 
Educational  Testing  Service 

G . Gruvaeus 

Educational  Testing  Service 
FORTRAN  IV 


COMPUTER 
PROGRAM  AVAILABILITY 


IBM  System  360/65 

Decks  and  listings  presently  available 


CONTACT  Mr.  Ernest  Anastasio,  Office  of  Data 
Anal.  Research,  Educational  Testing 
Service,  Rosedale  Road,  Princeton, 

New  Jersey  08540 

Tel.:  (609)  921-9000  ext.  2552 

FUNCTIONAL  ABSTRACT 

UMLFA  performs  a factor  analysis  of  a' given  correlation  matrix. 
"The  factor  loadings  and  the  unique  variances  are  estimated  by 
Lawley’s  method  of  maximum  likelihood.  The  computational  proce- 
dure...makes  use  of  the  method  of  Fletcher  and  Powell  for  numer- 
ical minimization  of  a function.  Any  number  of  factors  can  be 
extracted,  and  each  factor  is  rotated,  using  Kaiser’s  varimax 
method.  The  goodness  of  fit  of  the  maximum  likelihood  solution 
is  tested  by  Lawley’s  chi-square  test  based  on  the  likelihood 
ratio  technique."1 


The  program  is  able  to  handle  up  to  75  variables  and  30  factors. 
However,  the  input  correlation  matrix  must  be  positive  definite. 


REFERENCES 


1.  Joreskog,  K.G.,  "A  Computer  Program  for  Unrestricted  Maximum 
Likelihood  Factor  Analysis,"  Educ.  Testing  Service  Res.  Mem. 
RM-66-20  (1966). 
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USF.R  INSTRUCTIONS 
Specification  of  Input 

360  0.S./JCL  cards  (job  control) 

Col.  1 Col.  16 

//  JOB 

// JOBLIB  DD  DSNs0CS . SAPGM ,DISP=SHR 
/ /GO  EXEC  PGM=UMLFA , T IME=  2 , REG I0N= 1 5 OK , AC CT=xxxxx 

// FT0 3F001  DD  SYS0UT=A  VDCB= (RECFM=FBA,LRECL=133 ,BLKSIZE=3458) 
//FT07F001  DD  SYSOUT=B,DCB= (RECFM=FB ,LRECL=80 ,BLKSIZE=3520) 
//FTXXF001  DD  SPACE- (CYL ,(1,1)) ,DISP=NEW,UNIT=2314 

[Note:  Replace  XX  in  above  card  with 

number  punched  in  Cols.  29—30 
of  parameter  card  no.  2.] 

//FT05F001  DD  * 

(UMLFA  control  cards  and  data  go  here) 

/* 

II 

Heading  Card 

Any  information  may  be  punched  in  Cols.  1—72. 

Parameter  Card 


Column 

1-  5 
6-10 
11-15 
16-20 
21-25 
26-30 
31-35 

41 

42 


Value  or 
Variable 

P 

K 

K 

NP 

MAXITER 

CRV 

1/0 

I/O 


Description  (Recommended  Value) 

Number  of  variables 

Lower  bound  for  number  of  factors  Q>  1) 

Upper  bound  for  number  of  factors  (£  30) 

Sample  size 

Maximum  number  of  iterations  (safely,  3P) 

Scratch  tape  number 

Convergence  criterion  (usually  1.0) 

Print/don't  print  original  correlation  matrix 
and  partial  correlation  matrices  with  some  vari- 
ables eliminated 

Print/don't  print  technical  output  related  to  the 

iterative  process  (usually  0) 
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43 

1/0 

44 

1/0 

45 

I/O 

46 

I/O 

47 

I/O 

48 

I/O 

49 

I/O 

50-80 

Columns 

45-49 

Print/don't  print  intermediate  results  when  some 
variables  are  eliminated,  and  the  reproduced  cor 
relations  and  residuals  for  he  final  solution 


o 

o 

o 


Punch/don't  punch  unrotated  factor  matrix 
(0,  unless  it  is  desired  to  use  the  result  for 
input  to  another  rotation  program) 

Suppress/don't  suppress  boundary  elimination 

Nonstandard/standard  parameters 

Read/don't  read  starting  vector  of  uniquenesses 

Nonstandard/standard  output 

Calculates/does  not  calculate  to  more  than  3- 
place  accuracy  by  Ortega's  method 

Must  be  blank 


o 

o 

ON 

ON 


would  be  left  blank. 

Nonstandard  Parameter  Cards  (optional) 


If  Col.  46  in  the  parameter  cards  is  1,  two  nonstandard  parameter 
cards  must  be  inserted  at  this  point.  The  user  should  refer  to 
the  write-up  for  the  definition  of  these  parameters. 


( 


Data-Format  Card 


The  standard  FORTRAN  variable  format  is  followed;  i.e.,  a card  of 
the  form  (nFw.d)  must  be  punched. 


Correlation  Cards 


The  correlation  cards  punched  according  to  the  format  specified 
in  nonstandard  parameter  cards  must  be  prepared  in  row  order, 
each  row  beginning  on  a new  card.  Only  the  lower  half  of  the  cor- 
relation matrix  excluding  the  main  diagonal  is  punched;  i.e., 
there  will  be  P - 1 rows  of  input. 


Starting  Configuration  (optional) 


If  Col.  47  in  the  parameter  card  is  1,  an  arbitrary  starting  config 
uration  may  be  entered.  This  will  consist  of 


(a)  a format  card 

(b)  the  starting  uniquenesses  for  the  variables  punched  according 
to  the  format  (a)  above. 
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Stop  Card 

At  the  end  of  the  last  case,  a card  punched  STOP  in  Cols.  1-4  must 
be  placed. 

The  input  deck  should  be  in  the  following  order. 


r 


L 


/ 


* 


STOP 


Z 


L 


r 


o 


c 


( 

/Starting 
IConf  igura1 
Format  for 

v1.  f 


301 


Format  for 
Data 


£ 


/ Parameter 
I Car 


Heading  Card — 1 


«-  option'l 
optional 


Data 


Nonstandard  parameters 
(optional)  2 cards 


Description  of  Output 


The  output  is  dependent  upon  the  options  selected  in  Cols.  41-44 
of  the  parameter  card.  For  purposes  of  illustration  the  sample 
input  did  not  contain  any  punches  after  Col.  40,  so  that  a minimum 
output  resulted.  The  following  items  are  printed: 

(1)  input  parameters 

(2)  maximum  likelihood  solution  (labeled  Munrotated  factor  matrix”) 

(3)  uniqueness  for  each  variable 

(4)  varimax  solution 

continued 
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) 

c / 

■ (5)  a test  of  goodness  of  fit  for  the  specified  number  of  factors.  g 

i 

Note:  With  items  (2),  (3),  and  (4)  there  appear  a string  of  numbers  § 

for  diagnostic  purposes.  These  should  he  ignored!  g 

j REFERENCES 

b Joreskog,  K.G.,  "A  Computer  Program  for  Unrestricted  Maximum 

Likelihood  Factor  Analysis,"  Educational  Testing  Service  Res. 

Mem.  RM- 66- 20  (1966). 
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SAMPLE  INPUT 


A listing  of  the  input  data 
sented  below.  Although  the 
it  would  not  have  been  necessary, 
onal  value  for  each  row  would  have 


cards  and  the  related  output  are  pre- 
data used  have  the  entire  matrix  punched, 
Data  punched  through  the  diag- 
been  sufficient. 


EIGHT  VARIABLES— ALL  41  ON  BLANK 
8 3 3 305  40  4 1.0 

(3X,8F8.5) 

21  0.84600  1.00000  0.88100  0.32600  0.37600  0.32600  0.27700  0.41500 

31  0.80500  0.88100  1.00000  0.80100  0.38000  0 . 3 1900  0 . 23 700  0.34500 

41  0.85900  0.82600  0.80100  1.00000  0.43600  0.32900  0.32700  0.36500 

51  0.47300  0.37600  0.38000  0.43600  1.00000  0.76200  0.73000  0.62900 

61  0.39800  0.32600  0.31900  0.32900  0.76200  1.00000  0.58300  0.57700 

71  0.30100  0.27700  0.23700  0.32700  0.73000  0.58300  1.00000  0.53900 

81  0.38200  0.41500  0.34500  0.36500  0.62900  0.57700  0.53900  1.00000 

STOP 
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SAMPLE  OUTPUT 

UNRESTRICTED  MAXIMUM  LIKELIHOOD  FACTOR  ANALYSIS 
EIGHT  VARIABLES--MLL  41  ON  BLANK 
5/29/6 6 
PARAMETERS 


P=  8 
Kl=  3 

K2=  3 


N=  305 
MAXI TER=  40 
CRV=  1.000 


MAXIMUM  LIKELIHOOD  SOLUTION  FOR  3 FACTORS 


UNROTATED  FACTOR  MATRIX 


0 

8 3 

0.846 

-0.189 

1.000 

0.000 

0*881 

-0.055 

0.826 

-0.160 

0.376 

-0.876 

0.326 

-0.725 

0.277 

-0.704 

0.415 

-0.543 

305  5 9 

0.348 
0.000 
0.164 
0.368 
-0.031 
-0.093 
-0.130 
-0.204 
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UNIQUE  VARIANCES 


0 8 305  6 9 

0.127  0.000  0.194  0.156  0.090  0.359  0.411  0.491 

VARIMAX-P.OTATED  FACTOR  MATRIX 


0 

8 3 

305  5 

0.883 

0.275 

-0.129 

0.936 

0.204 

0.287 

0.872 

0.196 

0.088 

0.875 

0.239 

-0. 145 

0.234 

0.919 

-0.105 

0.185 

0.779 

-0.021 

0.129 

0.757 

0.004 

0.254 

0.648 

0.157 

TEST  OF  GOODNESS  OF  FIT  FOR  3 FACTORS 


uH I SQUARE  WITH  8 DEGREES  OF  FREEDOM  IS  22.5993 

PROBABILITY  LEVEL  IS  0.00 
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COST  ESTIMATE 

For  the  job  listed  on  the  Sample  Input,  the  total  running  time  on 
the  IBM  360/65  amounted  to  3,80  seconds.  At  the  current  rate  at 
Educational  Testing  Service  (a  rather  complicated  function  of  the 
ratio  of  CPU  time  to  actual  wall-clock  running  time),  the  total 
computer  charge  for  the  run  amounted  to  $10.40.  (The  wall-clock/ 
CPU-clock  ratio  was  approximately  25:1.) 

Charge  to  user  * computer  time  + postage  and  handling  + network 

overhead 

* $10.40  + $5.00  + network  overhead  = $15.40 
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DESCRIPTIVE  TITLE  Rao  Constellation  and  Distance  Analysis 


CALLING  NAME 
INSTALLATION  NAME 


AUTHOR(S)  AND 
AFFILI ATION(S) 


LANGUAGE 


DISCRIM2 

Michigan  State  University 

Computer  Institute  for  Social  Science 

Research 

Stuart  Thomas 

Computer  Institute  for  Social  Science 
Research 

Michigan  State  University 
FORTRAN 


COMPUTER  CDC  3600 

PROGRAM  AVAILABILITY  Decks  and  listings  presently  available 

CONTACT  Dr.  Anders  Johanson,  Programming  Supervisor, 

Applications  Programming,  Computer 
Laboratory,  Computer  Center,  Michigan 
Sjtate  University,  East  Lansing,  Mich. 

48823 

Tel.:  (517)  355-4684 

FUNCTIONAL  ABSTRACT 

This  program  implements  the  method  titled  "Constellation  and 
Distance  Analysis"  when  first  published  by  C.R.  Rao1  and  later 
called  "Multiple  Discriminant  Analysis"  when  presented  indepen- 
dently by  Bryan2  and  by  Lubin.  The  method  operates  on  a set 
of  variates  measured  on  individuals  in  several  groups.  It 
determines  linear  combinations  of  the  variates,  called  discriminant 
functions,  which  maximize  the  ratio  of  between-group  variability 
to  pooled,  within- group  variability,  producing  the  output  listed 
below.  The  user  can  have  the  program  handle  data  input  or  write 
his  own  subroutine  to  read  data  and  perform  preliminary  data 
manipulations . 

Output 

1 . Job  Description 
User  comments 

Number  of  groups  and  variables 
Options  selected 
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2 . Group  Summary  Statistics 
Identification 

Number  observations  specified  on  group  card 
Mode  of  data  input  and  input  unit 

Format  statement  (if  data  read  by  program  rather  than  user) 
First  observation  in  the  group  (raw  and  transformed) 

Variable  means  and  variances 
Variable  intercorrelation  matrix  (optional) 

3 . Overall  Data  Summary 

Overall  means 
Overall  variances 
Overall  correlation  matrix 

4 . Discriminant  Function  Information 
Discriminant  criterion 

Percent  trace  accounted  for  by  criterion 
Rao’s  chi-square  and  degrees  of  freedom  for  the  function 
Function  weights  for  raw  data 
Function  weights  for  data  adjusted  to  unit  variances  (optional) 
Mean  discriminant  score  for  each  group 

5 . Overall  Discriminant  Statistics 

Group  centroids  in  discriminant  space  (optional) 

Intercentroid  distance  matrix  (optional) 

Back  solution  of  discriminant  equation  (optional) 

6 . Discriminant  Scores  (optional) 

Capaci ty 

Number  of  variables  must  not  exceed  30 
Number  of  groups  must  not  exceed  50 

Number  of  observations  in  any  given  group  must  not  exceed  9,999 
Number  of  scores  (if  requested)  must  not  exceed  10  per  respondent 

REFERENCES 

1.  Rao,  C.R.,  Advanced  Statistical  Methods  in  Brometrio  Research, 
(John  Wiley  § Sons,  Inc.,  New  York,  1952)  Ch.  9. 

2.  Bryan,  J.G.,  "The  Generalized  Discriminant  Function:  Mathe- 

matical Foundation  and  Computational  Routine,"  Harvard 
Educational  Review,  21,  2,  (1951),  90—95. 
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USER  INSTRUCTIONS 


° DISCRIM  is  called  from  the  CISSR  library  tape  by  the  name 

o DISCRIM2.  The  routine  is  available  in  relocatable  object 

§ deck  form;  however,  unless  extensive  recoding  of  data  is 

required,  use  of  the  library  tape  is  recommended.  The  user 
may  supply  his  own  recoding  subroutine  for  use  with  the 
object  deck  form. 

Complete  instructions  on  the  options  available  and  the  use 
of  the  program  are  found  in  the  references  cited  below. 

REFERENCES 

"CISSR  Technical  Report  No.  1,"  (The  Mich.  State  Univ. , East 
Lansing,  Mich . ) . 

Thomas,  S.,  "DISCRIM2,  CISSR  Technical  Report  No.  33,  (The  Mich. 
State  Univ.,  East  Lansing,  Mich.).  Available  from  the  EIN 
Office  at  the  cost  of  reproduction  and  mailing. 
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SAMPLE  INPUT 


O * JOB,  0 1 552.5,  THOMAS , 3 . 0,  APHL 
g * EQUIP, 27=(CISSR),MT(193)/kO 
* LOADMAIN, 27,3*0,3000 
$ ROUTINE, DI SCR I M2 
$DI SCRI M TEST  DATA 


SIZE 

SCORES 

3 

2 

5 

PU 

0 

1 

GROUP 

1 

5 

0 

1 

C5F5.0) 

1 

2 

3 

4 

5 

2 

4 

5 

7 

9 

3 

6 

9 

12 

16 

4 

5 

7 

9 

1 

5 

9 

7 

8 

6 

GROUP 

2 

5 

0 

1 

C5F5.0) 

11 

13 

15 

17 

19 

12 

14 

15 

16 

13 

13 

13 

13 

13 

14 

15 

15 

19 

21 

15 

16 

17 

18 

19 

GROUP 

3 

4 

0 

1 

C5F5.0) 

21 

40 

50 

60 

70 

22 

43 

49 

65 

71 

23 

45 

48 

64 

72 

24 

47 

47 

66 

73 

ENDATA 
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SAMPLE  OUTPUT 


3 


MULTIPLE  discriminant  analysis 
IMPLEMENTED  by  COMPUTER  institute  for  social  science  research 

MICHIGAN  STATE  UNIVERSITY 


DISCRIM  TEST  DATA 

SIZE  CARD  SPECIFIES  9 VARIABLES,  3 GROUPS 

SCORtS  CARD  REQUESTS  2 SCORES  PER  RESPONDENT  OUTPUT  TO  QO 


DATA  SUMMARY  FOR  GROUP  1 
SIZE  CARD  SPECIFIES  9 OBSERVATIONS 

FORMAT  FOR  GROUP  1 • • <5F5,0> 

DATA  INPUT  RY  PROGRAM  FROM  LOGICAL  UNIT  60 
FIRST  RAW  OBSERVATION  FOR  GROUP  1 

VARIABLE  12349 

VALUE  1,0000*000  2,0000*900  3,0000*000  4,0000*090  5,0000*000 

FIRST  TRANSFORMED  OBSERVATION  FOR  GROUP  1 

VARIABLE  12345 

value  1,0000*000  2,0000*000  3,0000*900  4,0000*000  5,0000*000 

COMPUTATIONS  BASED  ON  5 OBSERVATIONS  AFTER  DROPPING  0 

VARIABLE  MEANS  AND  VARIANCES  in  group  1 

VARIABLE  1 2 3 4.5 

mean  3,0000*000  5,2000*1)00  6,2000*000  8,0000*000  7,4000*000 

VARIANCE  2,5000*000  6,7000*400  5,2000*000  8,5000*000  3,1300*001 

CORRELATION  MATRIX  FOR  GROUP  1 


1 

2 

3 

4 

5 


1 

1,0000*000 
R, 1627.001 
6,9338*001 

5,4233.001 
•1,6957.001 


2 

9.1627.001 

1,0000*000 

7.1156.001 

5.6317.001 

1.4847.001 


3 

6,9338*001 

7,1156*001 

1,0000*000 

9,7769*001 

4,6246*001 


4 

5,4233*001 

9,6317*001 

9,7769*001 

1,0000*000 

9,5177*081 


5 

*1,6957*001 

1,4847*001 

4,6246*801 

9,5177*001 

1,0000*080 
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DATA  SUMMARY  FOR  QROUR  2 
SIZE  CARD  SPECIFIES  5 OBSERVATIONS 

* FORMAT  FOR  GROUP  2-  *-  (5F5,0) 

DATA  INPUT  BY  PROGRAM  from  LOGICAL  unit  60 
FIRST  RAW  OBSERVATION  FOR  GROUP  2 

VARIABLE  12345 

VALUE  1,1000*001  1,3000*001  1,5000*001  1,7000*001  1,9000*001 

FIRST  TRANSFORMED  OBSERVATION  FOR  GROUP  2 


VARIABLE  12345 

VALUE  1,1000*001  1,3000*001  1,5000*001  1,7000*001  1,9000*001 

COMPUTATIONS  BASED  ON  5 OBSERVATIONS  AFTER  DROPPING  q 

VARIABLE  MEANS  AND  VARIANCES  IN  GROUP  2 


variable 

MEAN 

VARIANCE 


1 

1,3000*001 

2,5000*000 


2 3 4 

1,4200*001  1,5000*001  1,6600*001 

1, 7000*UAu  2,0000*000  5,3000*000 


5 

1,4400*001 

7,3000*001 


CORRELATION  MATRIX  FOR  GROUP  2 


000  0067 


1 

2 

3 

4 

5 

1 

i, 

,0000*000 

8,4067,001 

4,4721-001 

3,4340-001 

3,0651-001 

2 

8, 

i 4607*001 

1,0000*000 

8,1349-001 

6,9961-001 

2,8123-001 

3 

«, 

,4721*001 

8,1349*001 

1,0000*000 

7,6707*001 

2,4693-001 

4 

3, 

,4340*001 

6,9961.001 

7,6787-001 

1,0000*000 

4,7702-001 

5 

3, 

,8651*001 

2,8123*001 

2,4693*001 

4,7702-001 

1,0000*000 

DATA  SUMMARY  FUR  GROUP  3 
SIZE  CARD  SPECIFIES  4 OBSERVATIONS 

FORMAT  FOR  GROUP  3 «•  (5F5.0) 

DATA  INPUT  BY  PROGRAM  FROM  LOGICAL  UNIT  60 
FIRST  RAW  OBSERVATION  FOR  GROUP  3 

VARIABLE  12345 

VALUE  2,1000*001  4,0000*001  5,0000*001  6,0000*001  7,0000*001 

FIRST  TRANSFORMED  OBSERVATION  FOR  GROUP  3 

VARIABLE  12345 

VALUE  2,1000*001  4,0000*001  5,0000*001  6,0000*001  7,0000*001 

COMPUTATIONS  BASED  ON  4 OBSERVATIONS  AFTER  DROPPING  0 

aontvnued 
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VARIABLE  MEANS  and  VARIANCES  in  group  3 

VARIABLE  12345 

MEAN  ?,  2500*001  4,375tt*Q0l  4,8500*001  6.3750*001  7,1500*001 

VARIANCE  1, 6667*000  6,9167*000  1,6667*000  6,9167*000  1,6667*000 

CORRELATION  MATRIX  FOR  GROUP  3 


1 

1 1,0000*000 

2 9,9438.001 

3 -1,0090*000 

4 6,3450*001 

5 1,0000*000 


2 

9.9438.001 

1,0000*000 

«9,9«'-38.001 

8.8074.001 

9.9438.001 


3 

•1,0000*000 

•9,9438*001 

1,0000*000 

•8,3450*001 

•1,0000*000 


4 

8,3450*001 

8,8074*001 

8,3450*001 

1,0000*000 

8,3450*001 


5 

1,0000*000 

9,9438*001 

•1,0000*800 

8,3450*001 

1,0000*000 


OVERALL  means  A*D  VARIANCES  BASED  on  14  total  observations 

variable  1 2 3 4 5 

MEAN  1,2143*001  1,9429*001  2,1429*001  2,7000*001  2,8214*001 

VARIANCE  6,7363*001  2,7603*002  3,3319*002  6,0185*002  8,4926*002 


i 

2 

3 

4 

5 

1 

i ,nooo*ono 

9,4330*001 

9,2378-091 

9,0543-001 

8,7013*001 

i 

9,4330.001 

1,0000*000 

9,9012-001 

9,9167-001 

9,6863*001 

3 

9,2376*001 

9,9012*001 

1,0000*000 

9,9426-001 

9,7563*001 

4 

9,0543.001 

9,9167*001 

9,9426-001 

1,0000*000 

9,8333*001 

S 

8,7013.001 

9,6863*001 

9,7563-001 

9,6353-091 

1,0000*000 

continued 


8 

122 


6/70 


000  0067 


000  0067 


EDUCOM 


EDUCATIONAL  INFORMATION  NETWORK 


000  0067 


DISCRIMINANT  FUNCTION  number  1 

DISCRIMINANT  CRITERION  FOB  TH t S FUNCTION  1, '7242*002 
PERCENT  OF  TRACE  9 ( 2960*001 

RAO-S  CH{. SQUARE  FOR  THIS  FUNCTION  IS  3,1557*001  W|TH  ft  DEGREES  OF  FREEDOM 
NOHMEO  FUNCTION  WEIGHTS 

VARIABLE  12349 

WEIGHT  5,9922-001  »5,26l8*001  *6,0280*001  *1,1874*002  *2,3833*002 
STANDARDIZED  FUNCTION  WEIGHTS 

VARIABLE  12345 

STD,  WT , 3,3011-001  -5,8371*001  *7,3855*001  *1,9532*002  *4,6227*002 

GROUP  MEAN  SCORES  ON  THIS  FUNCTION 

GROUP  123 

MEAN  SCR  *4,9457*000  -9,2613*000  *4,1220*001 


DISCRIMINANT  FUNCTION  NUMBER  2 

DISCRIMINANT  CRITERION  FOR  THJS  FUNCTION  i;3057*001 
PERCENT  OF  TRACE  7,0398*000 

RAO-S  CHI-SQUARE  FOR  THIS  FUNCTION  IS  2,6431*001  WITH  4 DEGREES  OF  FREEDOM 
NORMED  FUNCTION  WEIGHTS 

VARIABLE  12345 

WEIGHT  9,0155.001  *4,3111*001  2,5524*002  2,0384*002  *1,6650*002 

STANDARDIZED  FUNCTION  WEIGHTS 

VARIABLE  12345 

STD,  WT,  7,1677-001  *6,9257.001  4,5l3l«002  4,8440*002  *4,7001*002 

GROUP  MF AN  SCORFS  ON  THIS  FUNCTION 

ORnuP  123 

MEAN  SCR  6,6098.001  6,0798*000  2,7706*000 
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GROUP  CENTRO  J OS  IN  DISCRIMINANT  SPACE 


1 2 3 

1 *4,9437*000  -9,2613*000  -4,1220*001 

2 6,6098*001  6,0798*000  2,7706+000 


JNTERCENTRQID  DISTANCES  IN  DISCRIMINANT  SPACE 


1 2 3 


1 0,0000*000 

2 6,9274*000 

3 3,6336*001 


6,9274*000  3, 6336*001 
0,0000*000  3,2130+001 
3,2130*001  u, 0000*000 


0 OBSERVATIONS  DROpPEfl  PROM  SCORES  COMPUTATION  FOR  GROUP  1 DUE  TO  PARITY  ERRORS 
0 OBSERVATIONS  DROPPED  FROM  SCDRES  COMPUTATION  FOR  GROUP  2 DUE  TO  PARITY  ERRORS 
0 OBSERVATIONS  DROPPED  FROM  SCORES  COMPUTATION  FOR  GROUP  3 DUE  TO  PARITY  ERRORS 


BACK  SOLUTION  OF  DISCRIMINANT  EQUATION 


1 

1 -1 , 7462*007 

2 -5,4230-008 

3 2,2631-007 

4 -1,8254*007 

5 9,2387-007 


2 

1,3970*008 

3,1665*008 

9,8720*008 

1,3411*007 

1.2293*007 
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COST  ESTIMATE 

For  the  job  listed  on  the  Sample  Output,  the  total  processing 
time  was  17. 007  seconds.  At  the  current  rate  for  the  Michigan 
State  University's  CDC  3600  ($245/hr.),  the  computer  time  cost 
$1.16  plus  a charge  for  input  and  output.  A 10%  surcharge  will 
be  assessed  if  billed  to  a non-University  account.  In  addi- 
tion, there  is  a consulting  fee  of  $10, /hr.  for  work  done  by 
the  Applications  Programming  Group. 

Charge  to  user  = computer  costs  + consulting  + network  overhead 

= $1.20  (approx.)  + consulting  + network  overhead 
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Nonmetric  Multidimensional  Scaling 
KRUSKAL 

Office  of  Data  Analysis  Research 
Educational  Testing  Service  (ETS) 


DESCRIPTIVE  TITLE 
CALLING  NAME 
INSTALLATION  NAME 

AUTHOR ( S ) AND 
AFFILI ATION(S) 


LANGUAGE 


Program  due  to: 

Modification  due  to: 
FORTRAN 


J.B.  Kruskal 
R.F.  Long 
Bell  Telephone 
Laboratories 

D.  Kirk 

Educational  Testing 
Service 


COMPUTER  IBM  360/65 

PROGRAM  AVAILABILITY  Decks  and  listings  presently  available 

CONTACT  Mr.  Ernest  Anastasio,  Office  of  Data 

Analysis  Research,  Educational  Testing 
Service,  Rosedale  Road,  Princeton, 

N.J.  08540 

Tel.:  (609)  921-9000  ext.  2552 

FUNCTIONAL  ABSTRACT 

The  latest  version  of  the  multidimensional  scaling  program 
written  by  J.B.  Kruskal  of  Bell  Telephone  Labs  is  available. 

In  addition  to  the  improvements  made  from  earlier  versions, 
a much  faster  sort  has  been  incorporated  into  the  program  and 
a multi-calculation  facility  using  random  starting  configura- 
tions within  one  machine  run,  has  been  made  available.  This 
feature,  in  addition  to  being  more  efficient  than  the  old 
technique  of  punching  cards  for  subsequent  runs,  increases 
the  chances  of  converging  to  a global  minimum  within  one  machine 
run  with  the  corresponding  savings  in  time  and  cost. 

A modification  to  the  output  was  made  so  that  normally  only  the 
best  of  many  possible  configurations  is  printed.  However,  each 
final  configuration  and  even  the  individual  iterations  may  be 
printed  (as  was  done  in  Kruskal ’s  version)  if  desired. 

The  program  will  handle  60  subjects  scaled  in  up  to  ten  dimen- 
sions. Calculations  can  be  repeated  up  to  99  times  on  as  many 
as  1800  data  values. 

continued 
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REFERENCES 

Kruskal,  J.B.,  "Multidimensional  Scaling  by  Optimizing  Goodness 
of  Fit  to  a Nonmetric  Hypothesis,"  Psychometrika , 29, 
pp.  1-27,  (1964). 

Kruskal,  J.B,,  "Nonmetric  Multidimensional  Scaling:  A Numerical 

Method,"  Psychometrika,  29,  pp.  115-129,  (1964). 
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USER  INSTRUCTIONS 
Input 

Program  input  may  be  broken  down  into  five  types  of  cards. 

1.  Control  Cards  governing  the  types  of  calculations  desired 

2.  a Title  Card  identifying  the  run 

3.  a Parameter  Card  indicating  size  of  matrix,  replications, 
perturbations  and  print  options 

4.  a Format  Card  identifying  the  form  of  the  input  data 

5.  the  data 

Control  Cards 

These  are  used,  basically,  to  override  preset  program  constants, 
if  desired.  They  may  be  inserted  in  any  order  with  the 
restriction  that  the  "similarities"  or  "dissimilarities"  option 
must  be  the  last  specified.  They  may  be  punched  one  per  card 
or  connected  by  commas.  For  a complete  description  see  Ref.  1. 

The  following  may  be  used.'  (Punch  # for  = on  an  029  keypunch.) 

Exp  lanation 

(pre-set  value  is  in  parentheses) 

Maximum  dimension  (2) 

Minimum  dimension  (2) 

Step  size  from  maximum  to 
minimum  (1) 

Limitations  for  convergence  (50) 
Data  specification  (present) 

Data  specification  (matrix) 

Values  < cutoff  are  discarded  (0.0) 

Indicates  weights  for  data  follow 
(no  weights) 

Metric  space  (2) 

Equal  distance  stress  contribu- 
tion (PRIMARY) 

continued 
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Control  Options 
(begin  in  Col . 1) 

DIMMAX  = integer 

DIMMIN  = integer 

DIMDIF  = integer 

ITERATIONS  = integer 

DIAGONAL  PRESENT 
DIAGONAL  ABSENT 

MATRIX 

HALFMATRIX 

CUTOFF  = floating  pt. 
WEIGHTS 

R = floating  pt.  > 1 

PRIMARY 

SECONDARY 
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Control  Options 
(begin  in  Col.  1) 

SFORM  1 
SFORM  2 


NOCARDS 

CARDS 


CONFIGURATION 

STRMIN  = floating  point 
SFGRMN  = floating  point 

SRATST  = floating  point 

SIMILARITIES 

DISSIMILARITIES 


Exp lanations 

(pre-set  value  is  in  parentheses) 

Different  stress  formulae  (see 
Ref.  1)  (SFORM  1) 

Note:  Ref.  1 indicates  that 

the  standard  option  has  proven 
superior  in  all  cases  tested. 

Final  configuration  punch  option 
(NOCARDS) 

Note:  When  CARDS  is  requested, 

only  the  best  configuration  is 
punched . 

Identification  of  configuration 
deck  (no  configuration) 

Satisfactory  stress  value  (.01) 

Satisfactory  gradient  minimum 

(0.0) 

Satisfactory  change  in  succes- 
sive stress  values  (.999) 

Definition  of  data  measurement 
(dissimilarities) 

Note:  This  option  must  be  the 

last  one  specified. 


Title  Card 

The  Title  Card  may  have  any  identification  punched  in  Col.  1—72. 
It  follows  the  SIMILARITIES  or  DISSIMILARITIES  Card. 


Parameter  Card 


The  Parameter  Card  follows  the  Title  Card. 


Columns  Contents 


1—  3 Size  of  data  matrix 

4-  6 No.  of  replications  (i.e.,  No.  of  values  for  each 

matrix  entry) 

7—  9 No.  of  perturbations  (i.e.,  No.  of  separate  calcu- 

lations with  initial  random  configuration,  < 99) 

10—12  1:  print  iteration  values 

0:  do  not  print  iteration  values 
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Columns  Contents 

13—15  1:  print  final  configuration  for  each  perturbation 

0:  do  not  print  final  configuration 

Format  Card  for  Input  Data 

This  is  a regular  Fortran  format  enclosed  by  parentheses  , 

Ex:  (10  F 8.3) 

A slight  modification  of  this  format  is  used  to  print  the  data 
as  part  of  the  output;  care  must  be  taken  to  assure  that  the 
entire  number  is  printed.  Since  decimals  on  the  Data  Cards 
will  override  the  format  specifications,  only  the  field  width 
need  be  of  concern  when  punching  the  Data  Cards.  However, 
data  punched  .821,  .342,  etc.  with  a format  of  (8  F 5.0)  will 
read  correctly  but  will  print  as  zeros.  With  a format  of 
F w.d,  w should  be  at  least  three  greater  than  the  number  of 
significant  digits  desired. 

Data  Cards 

Data  matrix  input  is  by  rows  according  to  format  specified  on 
the  Format  Card.  Begin  each  row  on  a new  card,  the  count  will 
be  determined  by  the  size  of  the  data  matrix.  If  a half  matrix 
is  being  read,  it  is  convenient  to  consider  it  as  the  lower 
triangular  matrix,  including  or  excluding  the  diagonal. 

Following  the  last  Data  Card,  a Control  Card,  COMMUTE,  is 
placed.  A Stop  Control  Card  follows  the  last  Com^^te  Card 
for  the  entire  data  deck.  Multiple  cases  may  be  handled  on 
one  machine  run. 


Compute  Card 


Columns 
1-  7 

Stop  Card 

Columns 

1-  4 


Contents 

COMPUTE 

Contents 

STOP 


System  Control  Cards 

JOB  Card  will  be  prepared  by  ETS  personnel. 
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System  Card 

1 

Co lumns 

* 

Contents 

1-37 

//STEPNAME 

EXEC 

System  Card 

2 

Co lumns 

Contents 

1-19 

//GO . SYSIN 

DD 

System  Card 

3 

Co lumns 

Contents 

1-  2 

// 

G1TNG0 ,NAME=KRUSKAL 


* 


Job  Deck 

Job  Card 
System  Card  1 
System  Card  2 
Data  Deck 
System  Card  3 

Output  | 

The  output  is  virtually  self-explanatory.  An  added  feature  is 
the  printout  of  the  various  control  cards  and  the  input  data 
matrix  so  that  visual  checking  for  errors  may  be  made. 

Normally,  the  stress  and  best  configuration  are  printed  with 
a history  of  the  stresses,  number  of  iterations,  and  a conver- 
gence code  for  each  perturbation.  From  rather  limited  experi- 
ence it  has  been  found  that  a minimum  is  generally  located 
within  ten  perturbations  (i.e.,  no  smaller  values  were  found 
when  40  or  50  were  used) . 

When  the  CARDS  punch  option  is  requested,  only  the  best  con- 
figuration is  punched. 

L i mi tati ons 

The  present  program  will  handle  60  objects  scaled  in  up  to  ten 
dimensions.  1800  data  values  may  be  read,  and  up  to  99  per- 
turbations may  be  performed. 

REFERENCES 

1.  Kruskal,  J.B.,  ’’Nonmetric  Multidimensional  Scaling:  A 

Numerical  Method,”  Psychometrika , 29 , pp.  115—129,  (1964). 
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SAMPLE  INPUT 

//KRT2  JOB  C 

//STEPNAME  EXEC  GI TNGO, NAME=KRUSKAL 
//GO.SYSIN  DD  " 

DIMMINttl 

ITERATIONS#50 

SIMILARITIES 

TEST  CASE  WITH  NEW  WRITEUP 
5 1 10 

C5F5.2) 


9.3 

0.57 

6.1 

2.0 

1.5 

1.0 

8.5 

5.5 

3.3 

4.0 

2.1 

5.3 

7.3 

3.9 

1 . 1 

5.0 

6.2 

1.6 

8.9 

2.8 

1.3 

4.1 

1.0 

2.5 

8.8 

COMPUTE 

STOP 

/5C 

// 
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SAMPLE  OUTPUT 


CONTROL  CARDS 
DIMMING  1 
ITERATIONS#  50 
SIMILARITIES 

TEST  CASE  WITH  NEW  WRITEUP 

NO.  OBJECTS#  S REPLICATIONS#  1 PERTURBATIONS# 

10  ITERATION  PRINT#  0 PERTURBATION  PRINT#  0 


9.30 

0.57 

6.10 

2.00 

1.50 

1.00 

8.50 

5.50 

3.30 

4.00 

2.10 

5.30 

7.30 

3.90 

1.10 

5.00 

6.20 

1.60 

8.90 

2.80 

1.30 

4.10 

1.00 

2.50 

8.80 

COMPUTE 


THE  BEST  CONFIGURATION  OF  S POINTS  IN  2 DIMENSIONS 

HAS  STRESS  0.037 

BEST  CONFIGURATION 
1 2 

1 -1.0S2  -0.677 

2 0.529  0.769 

3 -0.750  0.588 

4 0.059  -0.350 

5 1.215  -0.300 


HISTORY  OF 

PERTURBATIONS 

CODE 

STRESS 

ITERATIONS 

2.0 

0.225 

20.0 

2.0 

0.230 

20.0 

2.0 

0.184 

23.0 

2.0 

0.037 

24.0 

2.0 

0.037 

26.0 

2.0 

0.037 

26.0 

2.0 

0.037 

32.0 

2.0 

0.037 

30.0 

2.0 

0.037 

34.0 

2.0 

0.037 

30.0 

CODES- - ll<ZERO  STRESS , 42<MINIMUM  ACHIEVED, 

$3<SATISFACTORY  STRESS  REACHED, $4 <MAXIMUM  ITERATIONS  USED 


THE  BEST  CONFIGURATION  OF  5 POINTS  IN  1 DIMENSIONS 

HAS  STRESS  0.317 


BEST  CONFIGURATION 
1 

1 -1.493 

2 1.451 

3 -0.042 

4 -0.533 

5 0.617 


HISTORY  OF 

PERTURBATIONS 

CODE 

STRESS 

ITERATIONS 

2.0 

0.409 

17.0 

2.0 

0.413 

25.0 

2.0 

0.381 

22.0 

2.0 

0.318 

20.0 

2.0 

0.317 

27.0 

2.0 

0.447 

15.0 

2.0 

0.399 

15.0 

2.0 

0.378 

17.0 

2.0 

0.423 

16.0 

2.0 

0.367 

20.0 

CODES- - ll< ZERO  STRESS , 1 2<MINIMUM  ACHIEVED, 

%3< SATISFACTORY  STRESS  REACHED , 4 4 <MAXIMUM  ITERATIONS  USED 

********************************************** 
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COST  ESTIMATE 

The  pricing  algorithm  for  the  Educational  Testing  Service  is 
based  on  a complex  formula  involving  the  amount  of  core  usage, 
card-processing,  tape  and  dedicated  device  usage,  lines  printed 
and  central  processor  unit  (CPU)  elapsed  time.  Computer  costs 
for  the  job  included  in  the  Sample  Input  were  $3.66. 

Charge  to  user  = computer  costs  + postage  and  handling  + network 

overhead 

= $3.66  + $5.00  + network  overhead 
= $8.66  + network  overhead 


CONTENTS— KRUSKAL 
pages 

1-  2 Identification  § Abstract 

3-  6 User  Instructions 

7-  8 I/O 

9 Cost — Contents 
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DESCRIPTIVE  TITLE  Plot 

CALLING  NAME  PLOT 


INSTALLATION  NAME  Office  of  Data  Analysis  Research 

Educational  Testing  Service  (ETS) 

AUTHOR ( S ) AND 

AFFILIATION(S)  University  of  Michigan 


LANGUAGE  MAP 


COMPUTER  IBM  360/65 


PROGRAM  AVAILABILITY  Decks  and  listings  presently  available 


CONTACT  Mr.  Ernest  Anastasio,  Off.  of  Data  Anal. 

Research,  Educational  Testing  Service 
Rosedale  Road,  Princeton,  N.J.  08540 
Tel.:  (609)  921-9000  ext.  2552 


FUNCTIONAL  ABSTRACT 

A flexible  plot  routine  originally  written  for  the  7090  at  the 
University  of  Michigan  and  adapted  to  their  system,  has  been  modi- 
fied for  the  operating  system  at  ETS.  Although  the  program  is 
written  in  assembly  language,  the  necessary  linkage  to  FORTRAN 
and  FORTRAN  I/O  has  been  written.  It  is  intended  to  be  called, 
therefore,  by  a FORTRAN  program  and  will  produce  plots  in  the 
normal  output  stream  as  determined  by  the  various  calls,  to  dif- 
ferent entry  points  in  the  subroutine.  The  standard  approach 
is  to  call  PLOT1 , PLOT2 , PLOT3,  and  PLOT4  in  that  order.  PLOT1 
sets  up  the  information  required  to  construct  the  graph,  PLOT2 
prepares  the  grid  and  sets  up  the  information  required  by  PLOT3 
to  place  points  in  the  graph,  PLOT3  places  the  plotting  charac- 
ters at  the  specified  points  in  the  graph,  and  PLOT4  prints  the 
completed  graph  with  values  along  the  X and  Y axes  and  a centered 
vertical  label  down  the  left  side  of  the  graph. 
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USER  INSTRUCTIONS 
PL0T1 

PLOT1  sets  up  the  information  required  to  construct  the  graph. 

It  consists  of  five  arguments,  the  first  of  which  is  the  first 
location  of  a five-word  vector.  The  calling  sequence  is 

CALL  PLOT1  (NSCALE(l),  NHL,  NSBH,  NVL , NSBV) 

The  five  arguments  are  defined  as  follows. 

NSCALE(l) — controls  the  scaling  and  number  of  decimals  printed. 

If  this  is  0,  the  values  0,  3,  0,  3 are  used  for  NSCALE(2)  through 
NSCALE(s),  respectively. 

NSCALE(2) — if  this  has  the  value  n,  the  numbers  printed  along  the 
y axis  are  10n  times  their  true  value. 

NSCALE (3) — the  number  of  decimal  places  printed  for  y values. 

NSCALE(4) — if  this  has  the  value  n,  the  numbers  printed  along  the 
x axis  are  10n  times  their  true  value. 

NSCALE(5) — the  number  of  decimal  places  printed  for  X values. 

NHL — number  of  horizontal  lines — must  be  two  or  greater. 

NSBH — number  of  spaces  between  horizontal  lines — must  be  one  or 
greater. 

NVL — number  of  vertical  lines — must  be  two  or  greater. 

NSBV — number  of  spaces  between  vertical  lines — must  be  one  or 
greater. 

NOTE:  If  different  values  for  NSCALE(l)  through  NSCALE(5)  are 

desired,  then  the  call  to  NSCALE(l)  should  be  the  name  of  a five- 
entry  array  containing  the  desired  values. 

PLQT2 

PLOT2  prepares  the  grid  and  sets  up  the  information  required  by 
PL0T3  to  place  a point  correctly  in  the  graph.  The  calling  se- 
quence is 

CALL  PL0T2  (IMAGE,  XMAX,  XMIN,  YMAX , YMIN) 

If  PLOT!  has  not  been  called  prior  to  PLOT2 , the  following  default 
configuration  is  used:  NSCALE(l)  = 0,  NHL  = 6,  NSBH  = 9,  NVL  = 11, 

NSBV  = 9.  The  five  arguments  are  defined  as  follows. 

IMAGE — the  region  used  to  hold  the  image  of  the  graph.  A dimen- 
sion of  2000  should  be  sufficient. 
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XMAX — largest  X value  to  be  plotted. 

XMIN — smallest  X value  to  be  plotted. 

YMAX — largest  Y value  to  be  plotted. 

YMIN — smallest  Y value  to  be  plotted. 

PL0T3 

PL0T3  places  the  plotting  character  in  the  graph  for  each  point 
(X,Y).  Its  calling  sequence  is 

CALL  PL0T3  (BCD,  X,  Y,  NDATA,  INT) 

The  five  arguments  are  defined  as  follows. 

BCD — plotting  character  used.  Example:  (1H*) . 

X — the  first  element  of  a floating  point  vector  of  X values. 

Y — the  first  element  of  a floating  point  vector  of  Y values. 

NDATA — the  number  of  points  to  be  plotted. 

INT — the  number  of  bytes  between  the  characteristics  of  numbers 
used  as  coordinates  (short  = 4,  long  = 8). 

PLQT4 

PL0T4  will  print  the  completed  graph  with  values  along  the  X and 
Y axes  with  a centered  vertical  label  down  the  left  side.  The 
calling  sequence  is 

CALL  PLOT4  (NCHAR,  LABEL) 

The  two  arguments  are  defined  as  follws. 

NCHAR — the  number  of  characters  in  the  label. 

LABEL — the  location  of  the  first  character  of  the  label.  The  fol- 
lowing example  is  representative. 

CALL  PLOT4  (18,  'ANY  VERTICAL  LABEL') 

System  Control  Cards 

JOB  Card  will  be  supplied  by  ETS. 

System  Card  1 
Columns  Contents 

1-22  //PROG  EXEC  FORTGCLC, 
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System  Card  2 
Columns  Contents 

1-32  //  REGION. GO=120K,ACCT. GO=0 200 

System  Card  3 
Columns  Contents 

1-18  //FORT .SYSIN  DD  * 

System  Card  4 
Columns  Contents 

1-36  //LKED.LIB  DD  DSN=0CS . SAPGM,DISP=SHR 


System  Card  5 
Columns  Contents 

1-19  //LKED. SYSIN  DD  * 


System  Card  6 
Columns  Contents 

11-27  INCLUDE  LIB(PLOT) 

System  Card  7 
Columns  Contents 

1-  2 /* 

System  Card  8 
Columns  Contents 
1-  2 // 

Job  Deck 

JOB  Card 
System  Card  1 
System  Card  2 
System  Card  3 
Input  Deck 
System  Card  4 
System  Card  5 
System  Card  6 
System  Card  7 
System  Card  8 


c 

4/70 


continued 


\ C i 


000  0069 


000  0069 


EDUCATIONAL  INFORMATION  NETWORK 


EDUCOM 


000  0069 


The  preceding  information  should  suffice  for  a high  percentage  of 
the  graphs  required.  A subroutine  has  been  written  to  insert  BCD 
information  in  the  body  of  the  graph,  and  additional  features 
exists  to  handle  semi-log  and  log-log  plots,  but  have  not  been  com- 
pletely checked  out  as  yet.  Anyone  wishing  to  use  these  options 
should  consult  the  contact  person. 
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//  (JOB  CARD) 

//PROG  EXBC  FORTGCLG, 

//  REGION. GO=120K,ACCT.GO=02000 
//FORT . SYSIN  DD  * 

DIMENSION  XI (100) ,X2(100) ,X3(100) ,GRAPH(2000) , IN(5) 

REAL*8  GRAPH2 (1000) 

COMMON  GRAPH, NVL,NSBV 
EQUIVALENCE (GRAHP ,GRAPH2) 

DIMENSION  A(100) 

NDATA  =100 
DO  2 1=1,100 
A(I)  = I 

X1(I)  = A(I)/100. 

X2(I)  = 1 . -XI  Cl) 

2 X3 (I ) = XI (I)  * X1(I) 

NHL=6 
NSBH=9 
NVL=6 
NSBV=19 
IN (1) =1 
IN ( 2) =0 
IN(3)=1 
I N (4  ) = 0 
IN(S) *1 

CALL  PL0T1  ( I N , NHL , N SBH ,NVL , N SBV) 

CALL  PL0T2 (GRAPH, 100. ,0. ,1. ,0.) 

CALL  PL0T3 (1H* ,A,X1 , NDATA, 4) 

CALL  PL0T3 (1H",A,X2 , NDATA, 4) 

CALL  PL0T3 (1H# ,A,X3 , NDATA, 4) 

CALL  INSH(18,6, 5, 'MACHINE  AVAILABILITY') 

CALL  INSH(9, 35, 5, 'PROGRAMMING  DEMANDS  ') 

CALL  INSH(40,45,4, 'BLOOD  PRESSURE  ') 

WRITE  (6,5) 

5 FORMAT  (1H1,40X,'SO  YOU  THINK  YOU  HAVE  TROUBLED ') 

CALL  PLOT4 (40 , ' READ  THIS  V/E/R/Y  CAREFULLY  ') 

WRITE  (b , 8) 

8 FORMAT (1 HO ,40X, 'WILL  THESE  SOON  BE  REVERSED? ' ,50X , 'DBK' ) 

END 

//LKED.LIB  DD  DSN=OCS . SAPGM,DISP=SHR 
//LKED. SYSIN  DD  * 

INCLUDE  LIB (PLOT) 

INCLUDE  LIB(INSH) 

/* 

II 
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EXAMPLE  2 


Control  cards  are  not  listed  in  this  example. 

CT» 

US 

REAL*8  GRAPH2 (1000) 

EQUIVALENCE  (GRAPH, GRAPH2) 

DATA  BLANK/'  ' / ,BCD/ ' *' / 

POL (ANGLE)  =.25  * ANGLE 
RMAX  = 4. 

NSBV=79 

NVL=2 

CALL  PLOT1  (0,2,47,2,79) 

CALL  PLOT 2 (GRAPH, RMAX ,- RMAX , RMAX , -RMAX) 

DO  1 1 = 1, 20C0 
1 GRAPH ( I ) =BLANK 

DELTAY  = RMAX/24 . 

DELTAX=RMAX/40 . 

IMAX  = 2 . *RMAX+1 . 

DO  4 1=1,49 

4 CALL  PLOT3 (1HI , 0 . , RMAX-FLOAT(I -1) *DELTAY ,1,4) 

DO  5 1=1, IMAX 

5 CALL  PLOT3 (1H+ , 0 . , RMAX- FLOAT (1-1) ,1,4) 

D06  1=1,81 

6 CALL  PLOT3 (1H- , -RMAX+FLOAT(I - 1) *DELTAX, 0 . ,1,4) 

DO  7 1=1, IMAX 

7 CALL  PLOT3 ( 1H+ , -RMAX+FLOAT( I - 1) , 0 . , 1 , 4) 

DO  12  1=1,140 

THET  = .1  * FLOAT (I) 

SWITCH  = PLOT3 (BCD , POL (THET) *COS (THET) , POL (THET) *SIN (THET)  ,1,4) 

12  CONTINUE 

13  CALL  OMIT(3) 

CALL  INSH(44 ,1,3, '90  DEGREES  ') 

CALL  INSH(2 ,26,3, '180  DEGREES  ') 

CALL  INSH(71 ,26,3, ' 0 DEGREES  ') 

CALL  INSH  (44,47,3, '270  DEGREES  ') 

WRITE  (6,9) 

9 FORMAT(lHl , 40X, ' A SLIGHTLY  DIFFERENT  EXAMPLE') 

CALL  PLOT4 (26, 'POLAR  PLOT  OF  THE  SPIRAL  ') 

END 
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SAMPLE  OUTPUT 

HX  AMP  LI;  1 


* 

Q 


O 

O 

O 


( 


4fc 

hhnhhhhhh + 

1— II— II— II— II— II— 1 H 1 H 1 1— | + 

HHHHHHHHH  + 

1— 1 1— 1 1— 1 1— 1 

1— 1 1— 1 1— 1 1— 1 l-H  + 

1 

1 

1 

« 1 

1 

1 

« 1 

1 

1 

* % • 

1 

1 

« =*  1 

1 

1 

•K  l 

1 

1 

« • 

1 

1 

* 9b  » 

1 

1 

« **  i 

1 

1 

* 9* 

1 

1 

« =* 

1 

* 

tn  1 

1 

1 

« 1 

m i 

1 

i 

9b  i 

1 

1 

« i 

4b  1 

1 

1 

« 

m.  » 

1 

1 

« i 

m » 

1 

1 

« i 

m • 

1 

1 

« 

m i 

1 

£ 

hhhhhhhhw* 

Hll— ll-HI— II— II— II— |%:l— 1 + 

I 

I 

I 

I 

I 

I 

I 

I 

I 

+ 
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u 

I 

I 

I 

I 

I 
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1 
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1 
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1 
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• 
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COST  ESTIMATE 

The  pricing  algorithm  for  the  Educational  Testing  Service  is 
based  on  a complex  formula  involving  the  amount  of  core  usage, 
card-processing,  tape  and  dedicated  device  usage,  lines  printed 
and  central  processor  unit  (CPU)  elapsed  time.  Computer  costs 
for  Example  1 in  the  Sample  Input  were  $2.01. 

Example  1 

Charge  to  user  = computer  costs  + postage  and  handling  + network 

overhead 

= $2.01  + $5.00  + network  overhead 
= $7.01  + network  overhead 

Computer  costs  for  Example  2 in  the  Sample  Input  were  $2,09. 
Example  2 . 

= $2.09  + $5.00  + network  overhead 
= $7.09  + network  overhead 


CONTENTS — PLOT 
pages 

1 Identification  § Abstract 

3—  6 User  Instructions 

7-10  I/O 

11  Cost — Contents 
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Multidimensional  Scalogram  Analysis 
MSA- 1 

Office  of  Data  Analysis  Research 
Educational  Testing  Service 


DESCRIPTIVE  TITLE 
CALLING  NAME 
INSTALLATION  NAME 

AUTHOR(S)  AND 
AFFILIATION (S ) 


LANGUAGE 
COMPUTER 
PROGRAM  AVAILABILITY 

CONTACT 


FUNCTIONAL  ABSTRACT 


Procedure  due  to: 

Program  due  to: 
Adaptation  due  to: 

Advisor  on  use: 


L.  Guttman 
J.  Lingoes 

University  of  Michigan 
J.  Lingoes 

University  of  Michigan 
D.  Kirk 

Educational  Testing 
Service 

H.  Harman 

Educational  Testing 
Service 


MAP 

IBM  360/65 

Decks  and  listings  presently  available 

Mr.  Ernest  Anastasio,  Off.  of 
Data  Anal.  Research,  Educational  Test- 
ing Service,  Rosedale  Road,  Princeton, 
N.J.  08540 

Tel.:  (609)  921-9000  ext.  2552 


oontinued 


MSA- I is  a program  to  map  types  (individuals  having  the  same 
profile  over  a set  of  variables  or  items)  onto  an  Euclidean 
space  with  minimum  dimensionality.  No  assumptions  are  required 
about  the  underlying  distributions,  the  scaling  properties  of 
the  items,  or  their  ordering.  The  only  requirement  is  that  the 
categories  of  each  item  be  mutually  exclusive  and  exhaustive. 
Types  are  represented  as  points  in  space,  each  item  is  a parti- 
tion of  the  space,  and  each  category  is  a region.  All  types 
who  fall  in  a given  category  of  a particular  item  are  constrained 
to  be  closer  to  boundary  markers  of  the  same  category  than  to 
delimiters  of  other  categories  of  the  same  item.  The  program 
we  have  is  a modification  of  the  MSA-I  package  as  distributed 
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by  Dr.  Lingoes.  An  option  or  modification  provides  additional 
plots  for  each  category  with  the  number  inserted  in  the  plots 
corresponding  to  the  response  to  the  item  rather  than  the  ID 
number  as  in  the  distributed  version. 

References  and  some  copies  of  the  substantial  literature  related 
to  this  problem  are  available  through  the  contact  person. 

REFERENCE 

Lingoes,  J.C.,  "Multiple  Scalogram  Analysis — A Set- theoretic 
Model  for  Analyzing  Dichotomous  Items,"  J.  of  Ed.  § 

Psych.  Meas.,  23,  pp.  501-524,  (1963). 
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USER  INSTRUCTIONS 
Input  Deck 
Title  Card 


000  0070 


Columns  Contents 

1-80  Title  information 


Control  Card  (zeros  and  blanks  treated  alike) 


Columns  Contents 


1-  4 
5-  8 
9-12 

13-16 

17-20 

21-24 

25-28 

29-32 

33-36 

37-40 

41-44 

45-48 

49-52 


Number  of  variables  (£  50) 

Number  of  subjects  (<.  100) 

Precoded  switch 

1:  values  are  integers  in  the  range  1—20 

0 or  blank:  values  are  not  in  this  range 

If  precoded  switch  is  1,  leave  this  blank 
If  precoded  switch  is  0 or  blank,  punch  number  of 
intervals  into  which  data  are  to  be  coded. 

Smallest  frequency  to  be  permitted  after  coding. 
Blank  indicates  no  lower  limits  are  desired. 

1:  card  output  of  coded  data  is  desired 

0:  card  output  is  not  desired 

Number  of  types  of  nonredundant  profiles . 

If  program  is  to  determine  redundancies,  set  this 
item  to  the  number  of  subjects. 

Minimum  number  of  dimensions  (default  is  1) 

Maximum  number  of  dimensions  (either  2 or  3) 

Number  of  iterations  (default  is  25) 

1:  item  plots  for  each  item 

0 : no  item  plots 

It  is  suggested  that  this  be  set  to  1. 

Cutoff  criterion  for  coefficient  of  contiguity. 
Floating  point  (0  < c £ 1.00) 

Code  to  indicate  mean  is  to  be  substituted  for 
missing  data. 


continued 


8/70 


3 


000  0070 


000  0070 


EDUCATIONAL  INFORMATION  NETWORK 


EDUCOM 


000  0070 

Frequency 

Card  Deck  (Use  if  Number  of 
profiles  / 0. 

types  of  nonredundant 

o 

o 

o 

o 

Columns 

Contents 

o 

1-  2 

Frequency  for  first  type 

o 

3-  4 

• 

# 

Frequency  for  second  type 

• 

• 

• 

71-72 

• 

Frequency  for  thirty-sixth 

type 

If  there  are  more  than  36  types,  continue  onto  another  card. 
Format  Card 


Data  Deck 

Multiple  cases  may  be  run,  each  with  its  own  Input  Deck. 

Job  Deck 

The  program  is  currently  available  and  may  be  executed  as  follows. 

//JOB  card  (will  be  provided  by  ETS  personnel) 

//EXEC  GITNGO ,NAME=MSAX 
//GO. SYSIN  DD  * 

(Insert  Input  Deck  or  Decks  here) 

/* 

Output 

The  output  will  depend  upon  the  options  selected  in  the  Control 
Card. 
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SAMPLE  INPUT 


O / /DKMSA  JOB  C 

° //EXEC  GITNGO,NAME=MSAX 

//GO.SYSIN  DD  }{ 

1TEST  FOR  G-L(MSA-I)  FOR  A PERFECT  UNI  DIMENS IONAL  SCALE  OF  3 

CATAGOR I ES 

37  3 722  1 1.0 
4 112  111 
C3F1.0) 

333 

332 

322 

222 

221 

211 

111 

/}! 
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SAMPLE  OUTPUT 


o 

o 

o 


TEST  FOR  G-L(MSA-I)  FOR  A PERFECT  UNI  DIMENS  I ONAL  SCALE  OF  3 

CATAGORIES. 

VARIABLE  SCORE  RANGE  CODED  INTERVAL 


O 

o 

o 


1 

2 

3 


0 . 100000E  01  TO  0 . 300000E  01 
0.100000E  01  TO  0 . 300000E  01 
0 . 100000E  01  TO  0 . 300000E  01 


0 . 100000E  01 
0 . 100000E  01 
0 . lOOOOOE  01 


FREQUENCY  DISTRIBUTION  FOR  RANKED  CODED  DATA 
VAR.  1 23456789 


113  3 

2 2 3 2 

3 3 3 1 


SCORES  FOR  EACH  SUBJECT  ON  EACH  VECTOR 
VECTOR  1 2 3 


SUBJECT 

1 -529.  509. 

2 -409.  69. 

3 -230.  -320. 

4 0.  -517. 

5 230.  -320. 

6 409.  69. 

7 529.  509. 


( 


) 


LINGOES  MULTIVARIATE  ANALYSIS  OF  CONTINGENCIES 


CATEGORY  WEIGHTS 


VECTOR  1.  ETA  =.811  « 

CATEGORY  12345678 


VAR  !«•  c uE 


1 

529  . 

213.  - 

389 

2 

469 . 

0.  - 

469 

3 

389  . 

-213.  - 

529 

VECTOR  2 

ETA  =.368 

CATEGORY 

1 

2 

VARIABLE 

1 

509  . 

-256  . 

86 

2 

289  . 

-385  . 

289 

3 

86. 

-256  . 

509 

continued 
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GUTTMAN-LINGOES  OUTER-POINT  SCALOGRAM  ANALYSIS  COORDINATES 


DIMENSION 

1 

2 

TYPE 

1 

-100.000 

30.643 

2 

-77. 180 

-25.472 

3 

-43.381 

-74.921 

4 

0.000 

-100.000 

5 

43.382 

-74.921 

6 

77.180 

-25.471 

7 

100.000 

30.644 

COEFFICIENT  OF  CONTIGUITY  =0.100000E  01  FOR  1 ITERATIONS. 


OUTER-POINT  MATRIX 


TYPE 

1 

C 4) 

3 

3 

TYPE 

— 

2 

C 1) 

3 

-3 

TYPE 

— 

3 

C 1) 

-3 

-2 

TYPE 

= 

4 

r\ 

to 

4^ 

-2 

2 

TYPE 

s 

5 

C 1) 

2 

-2 

TYPE 

S 

6 

c o 

-2 

-1 

TYPE 

s 

7 

C 1) 

-1 

1 

continued 
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VECTOR  PLOTS 

VECTOR  2 PLOTTED  AGAINST  VECTOR 


VECTOR 

2 


100 

96 

92 

88 

84 

80 

76 

72 

68 

64 

60 

56 

52 

48 

44 

40 

36 

32 

28 

24 

20 

16 

12 

8 

4 

VECTOR  1 
-4 
-8 
-12 
-16 
-20 
-24 
-28 
-32 
-36 
-40 
-44 
-48 
-52 
-56 
-60 
-64 
-68 
-72 
-76 
-80 
-84 
-88 
-92 
-96 
-100 


'A0?  "3°  _8°  "70  "60  "50  -40  "30  "20  "1°  J{  10  20  30  40  50  60  70  80  90 

" **  H *t  K it  it  it  it  it  it  it  it  it  it  it  it  it  x it  x it  it  it  it  it  it  it  it  it  it 

it 
it 
it 
it 
:t 
it 
it 
it 
it 
it 
it 
it 
it 
it 

u 
«% 

X 

it 

it 

it 

it 

it 

it 

it 

it 

it 

t it  it  it  it  it  it  x x x x x x x x }{  « i{  }J  }{  }{  }{  }{  }{  ){  }{  ,t  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it 

it 
it 

it 
it 
it 

2 * 6 

it 

it 

it 
it 
it 
it 


it 

x 

3 « 

it 

x 

x 

x 

x 

4X 

it  it  it  it  it  it  it  it  x it  it  it  it  it  it  x x x it  it  it  it  it  x x it  x it  x x x 

100  -90  -80  -70  -60  -50  -40  -30  -20  -10  « 10  20 


x x it  it  x 

30  4u 


X X 

50 


x x it  x it 

60  70 


x it 

80 


x it 

90 


100 

it  it  it 

it 

it 

it 

it 

it 

it 

it 

it 

it 

it 

x 

it 

it 

it 

it 

it 

it 

7 « 

it 

it 

it 

x 

it 

it 

it 

it  it  it 

it 

it 

it 

it 

it 

it 

it 

it 

it 

it 

it 

it 

it 

it 

it 

it 

it 

it 

it 

it 

it 

it 

it 

it 

x. 

it  x it 

100 


100 

96 

92 

88 

84 

80 

76 

72 

68 

64 

60 

56 

52 

48 

44 

40 

36 

32 

28 

24 

20 

16 

12 

8 

4 

-4 

-8 

-12 

-16 

-20 

-24 

-28 

-32 

-36 

-40 

-44 

-48 

-52 

-56 

-60 

-64 

-68 

-72 

-76 

-80 

-84 

-88 

-92 

-96 

•100 
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o COST  ESTIMATE 

t'-N 

o The  pricing  algorithm  for  the  Educational  Testing  Service  is 
0 based  on  a complex  formula  involving  the  amount  of  core  usage, 
o card-processing,  tape  and  dedicated  device  usage,  lines  printed 
° and  central  processor  unit  (CPU)  elapsed  time.  Computer  costs 
for  the  job  included  in  the  Sample  Input  were  $2.67. 

Charge  to  user  = computer  costs  + postage  and  handling  + network 

overhead 


= $2.67  + $5.00  + network  overhead 
= $7.67  + network  overhead 


CONTENTS—  MSA- 1 


pages 

1—  2 Udentif ication  § Abstract 
3—  4 User  Instructions 

5-  8 I/O 


9 Cost — Contents 
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DESCRIPTIVE  TITLE 
CALLING  NAME 


Simulation  Package  for  University  Research 
and  Training 

SPURT 


INSTALLATION  NAME 


AUTHOR(S)  AND 
AFFILIATION (S ) 


LANGUAGE 


Vogelback  Computing  Center 
Northwestern  University 

Gustave  J.  Rath 

Department  of  Industrial  Engineering  and 
Management  Sciences 

Martin  Goldberg 
Leonard  Weiner 

Northwestern  University 
CDC  FORTRAN  IV 


COMPUTER  CDC  6400 


PROGRAM  AVAILABILITY  Decks  and  listings  presently  available 

CONTACT  Lorraine  Borman,  EIN  Technical  Represent- 
ative, Vogelback  Computing  Center,  North- 
western University,  2129  Sheridan  Road, 
Evanston,  111.  60201 
Tel. : (312)  492-3682 

FUNCTIONAL  ABSTRACT 


SPURT  is  a comprehensive  package  of  USASI  Standard  FORTRAN  rou- 
tines that  are  designed  for  use  in  simulation  modelling.  These 
useful  routine* , ranging  from  simple  to  complex,  enable  the  aver- 
age FORTRAN  programmer  to  employ  simulation  techniques  without 
having  to  learn  the  semantic  and  syntactic  rules  of  a new  pro- 
gramming language. 

The  SPURT  package  is  made  up  of  six  main  parts. 

I.  CLOCK  Generation — SPUET1 

II.  Stochastic  Generators — SPUET2 

III.  Statistical  Computations — SPUET3 

IV.  Analog  Simulators — SPUET4 

V.  List-Processing  and  Queue-Manipulation — SPUET5 

VI.  Matrix  and  Graphical  Output — SPUET6 
continued 
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The  following  is  a listing  and  brief  discussion  of  the  various  sub- 
routines contained  in  each  of  the  six  S?URT  parts. 


O 

O 

o 


CLOCK  Generation — SPURT1 : to  implement  discrete-time  simulation 

models;  to  cause  events  to  occur  in  the  proper  time  sequence 

The  CLOCK  subroutine  consists  basically  of  two  lists: 

Master  Time  List — contains  events  scheduled  to  happen  in  the 
future 

Master  Time  Queue — contains  events  that  could  not  take  place 
at  the  time  when  they  were  scheduled  to  and,  therefore,  have 
been  rescheduled;  i.e.,  they  have  been  blocked  and  are  wait- 
ing in  a queue. 

Events  can  be  stored  on  either  list. 

CLOCK  recognizes  two  basic  kinds  of  events: 

Exogenous — those  that  are  external  to  the  user’s  routine; 
these  are  read  from  Data  Cards  by  the  CLOCK 

Endogenous — those  that  are  internal  to  the  user’s  routine; 
these  are  generated  dynamically  and  then  are  maintained  by 
the  CLOCK 


Stochastic  Generators — SPURT2:  to  generate  samples  from  various 

probability  distributions  and  to  calculate  sample  values 


Subroutine 

ST0GN1 


Usage 


Permits  sampling  from  a discrete  empirical  probabil- 
ity distribution  defined  by  the  user 


ST0GN2 


Enables  the  user  to  approximate  a continuous  distri- 
bution by  means  of  a piecewise  linear  distribution 


UNIFRM 


Permits  the  user  to  sample  real  values  from  a uniform 
distribution  in  a defined  interval 


RAND IN 


Provides  a uniform  distribution  of  integers  in  a de- 
fined interval 


NORMAL 


Allows  the  user  to  obtain  a random  sample  from  a nor-  ‘ 
mal  distribution  with  given  mean  and  standard  deviation 


NEGEXP 


Permits  the  user  to  obtain  a random  sample  from  the 
negative  exponential  distribution 


POISSN 


Provides  the  user  with  a random  sample  from  the  Poisson 
distribution 


continued 
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ERLANG  Provides  a random  sample  from  the  Erlang  distribution 

DISCRT  Permits  sampling  from  a step  function  describing  a 

discrete  cumulative  distribution  of  integer  values 

LINEAR  Provides  the  user  with  a random  sample  from  a cumula- 

tive distribution  that  is  obtained  by  linear  interpo- 
lation in  a nonequidistant  table  of  real  values 

DRAW  Provides  a boolean  value  of  TRUE  or  FALSE 

RANPER  Generates  a uniformly  distributed,  random  permutation 

of  the  integers  1,  2,  •••,  M 


Statistical  Computations — SPURT3 : to  calculate  statistical  param- 

eters and  histograms  of  data  arrays 


Subroutine  Usage 


STIX1 

STIX2 

STIX3 

STIX4 


STIX5 


STIX6 


STIX7 


Three  interrelated  subroutines  to  accumulate  and  print 
out  a frequency  table  and  to  produce  a CalComp  plot  of 
a normalized  histogram  of  the  table 

Evaluates  the  mean,  standard  deviation,  maximum  value, 
and  minimum  value  of  an  array  of  real  numbers 

Evaluates  the  correlation  coefficient  between  two 
arrays  of  real  numbers 

Ranks  an  array  of  real  numbers  and  produces  the  me- 
dian and  range  of  the  data  within  the  array 

Produces  a statistical  description  of  the  data  found 
in  an  array,  including  the  sample  size,  mean,  stand- 
ard deviation,  standard  error,  minimum  and  maximum 
values,  range,  and  a printed  histogram  plot 


Analog  Simulators — SPURT4:  to  enable  the  simulation  of  analog- 

computer  problems  on  a digital  computer 


Subroutine  Usage 

ANALOG  These  two  subroutines  make  it  possible  to  obtain 

SECND  output  similar  to  a hybrid  computer 


continued 
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List-Processing  and  Queue-Manipulation — SPURT5:  lists  are  mXn  ar- 

rays; entries  in  lists  are  mXl  arrays. 


Subroutine 

ADFIFO 

ADLIFO 

REMOVE 

PURGE 

DISPL 


Usage 

Adds  an  entry  at  the  bottom  of  the  list;  it  can  be 
removed  only  after  all  the  elements  presently  on  the 
list  are  gone  (builds  first-in  last-out  list) 

Adds  an  entry  at  the  top  of  the  list;  it  will  be 
removed  before  any  other  entry  presently  on  the  list 
(builds  last-in  first-out  list) 

Removes  the  top  (or  first)  entry  from  a list 

Destroys  the  contents  of  a list 

Prints  the  contents  of  a list 


Additional  subroutines  in  SPURT 5 provide  the  capability  to  rank 
lists  and  to  delete  or  to  insert  entries  into  lists. 


Matrix  and  Graphical  Output — SPURT6:  output  is  facilitated  through 

printing  and  graphical  output 


Subroutine 

OUT 

NSOUT 

GRAPH 

REFERENCES 


Usage 

Prints  out  a square  matrix  with  column  and  row  head- 
ings 

Prints  out  a nonsquare  matrix  with  column  and  row 
headings 

Produces  two-dimensional  graphs  of  plots,  using  a 
CalComp  plotter 


1.  Rath,  G.J.,  "Description  of  the  Simulation  Package  for  Univer- 
sity Research  and  Teaching,"  Northwestern  Univ.  Vogelback  Comput- 
ing Ctr. , SPURT,  Rev.  E (1968;  unpublished). 
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USER  INSTRUCTIONS 

SPURT  is  separated  into  six  sections  (Parts)  in  the  Vogelback  Pro- 
gram Library.  All  of  the  routines  contained  in  any  one  Part  will 
be  loaded  with  the  user’s  program  when  he  places  that  Part  name  in 
the  argument  list  of  a Library  Card.  The  following  listing  shows 
which  routines  are  included  in  each  part  of  SPURT. 


SPURT! 

Program  Library 
SPURT2  SPURT3 

Name  (Part) 

JRT4  SPURT5 

SPURT6 

SPURT  User  Routines  Loaded: 


CLOCK 

STOGN1 

OUT 

ANALOG 

ADFIFO 

TIMELP 

SETCLK 

STOGN2 

I OUT 

SECND 

ADLIFO 

PAGE 

ANALOG 

STOGN6 

NSOUT 

REMOVE 

DIAGNS 

SECND 

UNIFRM 

INSOUT 

PURGE 

DIAGNW 

RAND IN 

GRAPH 

DISPL 

NORMAL 

STIX1 

IDISPL 

NEGEXP 

STIX2 

NUMLST 

POISSN 

STIX3 

RANKQS 

ERLANG 

STIX4 

INRKQS 

DISCRT 

STIX5 

RANKQL 

LINEAR 

STIX6 

INRKQL 

DRAW 

STIX7 

SEARCH 

HISTD 

INSERT 

RANPER 

DELETE 

SPURT  Internal  Routines 

Loaded: 

ZZXXQ9Q 

LODLST 

QRLQPB 

BLKDATU 

PURGER 


Common  Blocks  Used: 


CLOCK1 

SPRTFT 

SZSYSP 

QPLOTQ 

SPRTIO 

SPRTIO 

SPRTFT' 

SZSYSP 

SZSYSP 

SPRTIO 

SPRTFT 

QPLOTQ 

SPTMSG 

SPRTPL 

SPRTIO 

QPAGEQ 

SPURT  Part 

Core  Requirements  (octal): 

6500 

4000 

21300  + 6400 

5700 

5000 

Part  Core 

Requirements 

When  Loaded  with  SFURT6 

(octal) : 

7600 

6600 

22500  + 7600 

7100 
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NOTE:  Whenever  any  of  the  SPURT  routines  is  called  from  the  li- 

brary, SPURT6  must  also  be  called . Therefore,  every  use  of  the 
Library  Card  for  SPURT  will  include  SPURT6  in  the  argument  list. 

Application  Hints 

All  user-written  subroutines  should  have  as  their  first  executable 
instruction  a call  to  the  user-written  subroutine  TRACE,  passing 
as  a parameter  the  name  of  the  calling  subroutine.  For  example, 
the  first  executable  statement  in  subroutine  FACTORY,  say,  should 
be  CALL  TRACE  (7HFACT0RY) . Thus,  as  each  subroutine  within  the 
simulation  model  initiates  execution,  it  will  call  on  the  TRACE 
routine,  which  can  be  constructed  to  print  a short  message  giving 
the  current  simulated  time,  the  name  of  the  calling  subroutine, 
and  the  status  of  key  system  variables. 

It  should  be  emphasized  that  TRACE  is  a user-written  closed  sub- 
routine. Therefore,  it  is  the  user's  responsibility  to  construct 
the  printout  to  include  the  simulation  time,  calling  subroutine 
name,  and  all  key  system  variables. 

Segment  coding  is  suggested  because  discrete -time  simulation  models 
are  characterized  by  a chain  of  events  and/or  activities.  Each 
event  and  activity  is  well  defined  in  setting  up  the  problem  solu- 
tion. This  implies  that  each  event  or  activity  within  the  model 
should  be  coded  as  a closed  subroutine.  In  doing  this,  it  is  good 
practice  to  place  into  a common  block  all  variables  used  by  more 
than  one  routine.  Segmentation  of  this  sort  will  also  allow  the 
easy  generation  of  closed  subroutines  to  handle  data  input,  sta- 
tistical analysis,  printouts,  and  facilities  for  a TRACE  routine. 

Error-Indicator  Subroutines 

DIA6NS  and/or  DIAGNW 

SUBROUTINE  DIAGNS  (NAME ,NUMBR) 

SUBROUTINE  DIAGNW  (NAME ,NUMBR) 

where  NUMBR  is  an  integer  and  NAME  is  a Hollerith  constant. 

The  user  may  wish  to  incorporate  calls  to  DIAGNW  and/or  DIAGNS  in 
his  main  program.  These  are  called  by  most  of  the  SPURT  subrou- 
tines and  functions  whenever  an  error  condition  arises  during  a 
run.  If  the  error  is  of  a serious  nature,  DIAGNS  is  called;  it 
causes  a program  termination  after  an  appropriate  diagnostic  mes- 
sage has  been  printed  on  the  standard  output  unit.  For  less  ser- 
ious errors,  DIAGNW  is  called  by  the  SPURT  routine  detecting  the 
error;  control  is  returned  to  the  calling  routine  after  DIAGNW 
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► 

rH  prints  out  a message.  (See  Ref.  1 for  a listing  of  all  diagnost- 

o ic  messages.) 
o 

o The  user  is  given  the  ability  to  force  SPURT  to  continue  execu- 

§ tion  of  a program  after  detecting  a normally  fatal  SPURT  error 

condition  during  the  run.  To  continue,  the  user  must  preset  the 
third  word  of  COMMON/SZSYSP  to  nonzero  in  his  main  program.  This 
causes  all  calls  (by  SPURT)  to  DIAGNS  to  be  handled  as  calls  to 
DIAGNW. 

CAUTION:  The  disablement  of  the  termination  feature  of  DIAGNS 

will  merely  cause  an  incorrect  value  to  be  stored  in  X;  however, 
with  many  other  SPURT  routines  (e.g.,  CLOCK),  infinite  loops  may 
occur  when  this  feature  is  disabled.  This  option  is  to  be  used 
with  extreme  care l 

REFERENCES 

1.  Rath,  G.J.,  "Description  of  the  Simulation  Package  for  Uni- 
versity Research  and  Teaching,"  Northwestern  Univ.  Vogelback 
Computing  Ctr. , SPURT,  Rev.  E (1968;  unpublished). 
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USER  INSTRUCTIONS— SPURTT:  CLOCK  Generation 

SUBROUTINE  CLOCK  (L , NEWT , NEWJ) 

SUBROUTINE  SETCLK  (MTL , JUMP , LMTL ,MTQ , JUMQ , LMTQ) 

TYPE  INTEGER  L , NEWT , NEWJ , MTL , JUMP , LMTL ,MTQ , JUMQ , LMTQ 

The  primary  function  of  CLOCK  is  the  manipulation  of  two  lists: 
a Master  Time  List  and  a Master  Time  Queue.  Events  and  their 
type  number  and  scheduled  time  of  occurrence  can  be  stored  on 
either  list.  The  Master  Time  List  contains  events  that  are  sched- 
uled to  happen;  the  Master  Time  Queue  contains  events  that  could 
not  take  place  at  the  time  when  they  were  originally  scheduled  to 
and,  therefore,  have  been  rescheduled.  That  is,  they  were  blocked 
and  so  are  waiting  in  a queue.  CLOCK  causes  events  to  occur  at  the 
proper  simulation  time.  (Unless  otherwise  noted,  all  references  to 
time  here  will  mean  simulated  time,) 

The  Master  Time  List  consists  of  two  one-dimensional  arrays:  MTL 

and  JUMP.  Both  are  of  the  same  size  and  must  be  dimensioned  in 
the  user’s  program.  The  MTL  array  contains  the  time  at  which  the 
events  are  scheduled  to  occur.  The  JUMP  array  contains  the  num- 
ber of  the  event  type.  The  i^h  element  of  MTL  and  the  i™  ele- 
ments of  JUMP  constitute  an  event.  LMTL  stands  for  the  length,  of 
the  Master  Time  List  (LMTL  <_  that  of  MTL)  . NEVEN  is  the  variable 
that  contains  the  surrent  number  of  events  in  the  Master  Time  List. 

NOTE:  The  value  of  NEVEN  is  maintained  by  the  CLOCK  and  should 

not  be  changed  by  the  user.  It  is  intended  for  use  on  a read-only 
basis . 

The  Master  Time  Queue  is  very  similar  to  the  Master  Time  List,  ex- 
cept that  it  contains  blocked  events.  The  variables  MTQ,  JUMQ, 

LMTQ,  and  NEVEQ  correspond  exactly  to  the  variables  MTL,  JUMP, 

LMTL,  and  NEVEN  for  the  Master  Time  List.  Thus,  MTQ  is  a one-dimen- 
sional array  containing  event  types.  Both  arrays  are  dimensioned 
by  the  user  in  his  program  and  must  have  the  same  dimension.  Also, 
LMTQ  must  be  defined  (LMTQ  £ dimension  of  MTQ) . NEVEQ  is  the  cur- 
rent number  of  events  in  the  Master  Time  Queue. 

CLOCK  recognizes  two  basic  kinds  of  events:  exogenous  (external  to 

the  user's  program  and  the  CLOCK  subroutine)  and  endogenous  (intern- 
al to  the  program) . 

Exogenous  events  are  read  in  on  data  cards  as  input  data,  one  event 
per  card.  The  data  cards  must  be  arranged  by  the  user  in  time  se- 
quence. To  have  SETCLK  or  CLOCK  read  an  exogenous  event,  the  user 
must  specify  the  logical  unit  number  (LUN)  from  which  the  cards  are 
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to  be  read.  If  the  data  cards  follow  the  program  on  the  standard 
system  input,  LUN  =5.  If  the  value  for  UJN  is  not  set  between  1 
and  99,  the  reading  of  exogenous  events  is  suppressed. 

Endogenous  events  are  not  read  in  on  data  cards  and  are  created  in 
the  user's  program. 

The  basic  function  of  CLOCK  is  to  cause  events  to  happen  when  they 
are  scheduled.  When  CLOCK  is  initialized,  the  first  exogenous 
event  is  read  (if  a valid  LUN  has  been  specified)  and  is  placed  on 
the  Master  Time  List.  Subsequently,  whenever  the  normal  CALL  CLOCK 
statement  is  used,  the  subroutine  causes  the  event  to  be  taken  from 
the  Master  Time  List  or  Master  Time  Queue,  whichever  has  the  earli- 
est time  of  occurrence  (ties  are  decided  in  favor  of  the  Master 
Time  Queue)  and  returned  to  the  user’s  program.  Whenever  an  exo- 
genous event  is  deleted  from  the  Master  Time  List,  the  next  exogen- 
ous event  is  automatically  read  (if  LUN  is  valid)  and  placed  on  the 
Master  Time  List  in  sequence.  CLOCK  works  with  only  one  event  at  a 
time  and  stops  when  all  exogenous  events  have  been  read  in  and  both 
lists  are  empty. 

The  user  initializes  CLOCK  with  the  following  call!  CALL  SETCLK(MTL, 
JUMP , LMTL ,MTQ , JUMQ , LMTQ) . The  parameters  in  the  calling  sequence 
are  the  same  as  those  described  above. 

If  the  user  wishes  to  read  an  exogenous  event,  then  common  block 
CLOCK1  must  be  accessed  (see  Ref.  1,  p.  3.9)  and  LUN  preset  equal 
to  5.  (see  Ref.  1,  p.  3.4). 

The  user  calls  CLOCK  with  CALL  CLOCK (L , NEWT ,NEWJ) . The  only  vari- 
ables that  will  change  in  the  course  of  the  user’s  program  are  L, 

NEWT,  and  NEWJ.  Thus,  SETCLK  is  called  only  when  it  is  desired  to 

initialize  both  dlock  lists.  Here,  NEWT  contains  the  time  of  the 
event  and  NEWJ  contains  the  number  of  the  event  type.  Since  CLOCK 
works  with  only  one  event  at  a time,  NEWT  and  NEWJ  will  always  con- 
tain the  time  and  type  number  of  the  present  event  being  worked  with. 

Each  event  type  is  considered  to  be  the  parameter  of  a computer  GO 

TO  statement  in  the  user's  program  and  represents  the  jump  address 
of  an  event  to  be  executed  (Ref.  1,  Appendix). 

The  variable  L takes  on  integer  values  from  2 through  9;  the  value 
must  be  chosen  by  the  user  and  determines  the  function  of  the  call 
statement.  Example:  Consider  the  use  of  L in  the  following  calls 

to  the  CLOCK  subroutine. 

L = 2:  used  for  loading  the  Master  Time  List  with  the  event  (NEWT, 

NEWJ)  — 
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CALL  CLOCK (2, NEWT, NEWJ) 

The  parameter  value  of  L equal  to  2 denotes  that  the  Master  Time 
List  is  to  be  loaded  with  event  type  NEWJ  that  is  scheduled  to 
occur  at  time  NEWT. 

L = 3 ; used  to  delete  from  both  lists  all  events  of  a given  type 
NEWJ  occurring  at  a given  time  NEWT — 

CALL  CLOCK (3, NEWT, NEWJ) 

This  call  to  CLOCK  is  used  to  delete  the  occurrence  of  event  type 
NEWJ  at  a scheduled  time  of  NEWT  from  both  the  Master  Time  List 
and  the  Master  Time  Queue.  For  example,  CALL  CLOCK(3,8,l)  re- 
quests that  event  (8,1)  be  deleted  from  both  lists. 

L = 4 : used  for  calling  the  next  scheduled  event — 

CALL  CL0CK(4, NEWT, NEWJ) 

Here,  a request  has  been  made  of  the  CLOCK  for  the  next  scheduled 
event  and  its  time  of  occurrence.  CLOCK  returns  a value  in  NEWT 
equal  to  the  time  of  occurrence  of  the  next  event  type.  The  value 
of  the  event-type  code  is  returned  in  NEWJ. 

L = 5 : used  for  loading  a blocked  event  (NEWT, NEWJ)  on  the  Master 

Time  Queue — 

CALL  CL0CK(5, NEWT, NEWJ) 

A blocked  event  (NEWT, NEWJ)  is  to  be  loaded  onto  the  Master  Time 
Queue.  The  user  is  cautioned  that  NEWT  must  not  contain  the  time 
at  which  the  event  was  blocked.  If  this  is  included,  the  clock 
will  hang  in  an  endless  loop.  NEWT  is  the  next  time  of  occurrence 
of  the  event  type  NEWJ  after  it  has  been  blocked. 

L = 6 : produces  the  next  scheduled  time  of  occurrence  (i.e.,  NEWT 

tor  an  event  of  type  NEWJ — 

CALL  CL0CK(6, NEWT, NEWJ) 

This  call  to  the  CLOCK  requests  the  next  scheduled  time  of  occur- 
rence of  event  type  NEWJ.  The  answer  to  the  request  is  returned  in 
NEWT.  For  example,  CALL  CLOCK (6 , NEWT , 4)  will  return  to  the  user 
(in  NEWT_  the  next  time  of  occurrence  of  event  type  4.  If  a request 
for  the  next  scheduled  time  of  occurrence  of  event  type  NEWJ  cannot 
be  satisfied  (e.g.,  if  that  event  type  , is  not  on  the  CLOCK  lists), 
then  the  value  returned  in  NEWT  is  negative. 
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L = 7:  purges  (deletes)  both  lists  of  all  events  of  type  NEWJ — 

CALL  CLOCK (7,0, NEWJ) 

Here,  the  CLOCK  is  requested  to  delete  from  both  the  Master  Time 
List  and  the  Master  Time  Queue  all  occurrences  of  the  event  type 
specified  by  NEWJ.  Note  that  the  second  parameter  (NEWT)  is  de- 
noted as  0,  as  this  parameter  is  ignored  by  this  request  but  must 
be  filled  in  the  calling  sequence. 

L 8:  purges  the  Master  Time  List  of  all  events  of  type  NEWJ — 

CALL  CL0CK(8 , 0 ,NEWJ) 

This  request  is  similar  to  7,  except  that  it  deletes  all  events  of 
type  NEWJ  from  the  Master  Time  List  only. 

L = 9 : purges  the  Master  Time  Queue  of  all  events  of  type  NEWJ — 

CALL  CL0SK(9 , 0 ,NEWJ) 

This  request  is  similar  to  7 also,  except  that  it  deletes  all  events 
of  type  NEWJ  from  the  Master  Time  Queue  only. 

NOTE:  If  an  event  is  blocked  for  some  reason,  the  user  must  place 
it  on  the  Master  Time  Queue,  at  a later  scheduled  time,  by  using  a 
different  form  of  the  CALL  CLOCK  (Ref.  1,  p.  3.4). 

The  unit  in  which  event  times  are  measured  is  decided  by  the  user 
in  terms  of  the  process  being  simulated.  However,  event  times  must 
be  nonnegative  integers . 

The  user  has  access  to  the  values  of  NEVEN,  NEVEQ,  and  LUN,  used  by,  • 
the  CLOCK.  These  values  are  placed  in  the  labeled  common  block 
CL0CK1 . (See  Ref.  1,  p.3.9.)  NEVEN  and  NEVEQ  should  be  accessed 
only  on  a read-only  basis  by  the  user.  CLOCK  sets  and  updates  both 
variables . 

If  the  user  wants  to  run  a real-time  simulation,  he  can  use  FUNCTION 
TIMELP,  which  provides  the  elapsed  CP  time  between  successive  calls. 

TIMELP 

REAL  FUNCTION  TIMELP  (NPRINT) 

TYPE  INTEGER  NPRINT 

If  the  user  wants  to  attempt  a simulation  in  real  time,  he  may  find 
FUNCTION  TIMELP  useful.  This  routine  prints  (at  the  user's  option) 
and  reti ins  the  CDC  6400  central  processor  elapsed  time  (in  seconds) 
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between  consecutive  calls  to  TIMELP.  An  initializing  call  to 
TIMELP  should  be  made  at  the  beginning  of  execution  of  the  rou- 
tine to  be  timed.  TIMELP  can  also  be  used  to  time  any  particular 
portion  of  a FORTRAN  program. 

A zero  value  of  NPRINT  suppresses  printing  by  TIMELP.  A nonzero 
NPRINT  will  print  the  legend  CP  TIME  SINCE  LAST  CALL  ..  xx.xxx 
SECONDS.  In  either  case,  TIMELP  contains  the  elapsed  time.  The 
call  to  TIMELP  takes  the  form  CALL  TIMELP  (NPRINT) . 

Job  Deck  Structure 


Job  Cards 
Run  (s) 

LIBRARY (SPURT1 , SPURT6) 

LGO. 

7-8-9  (EOR  Card) 

Main-Problem  Card(s) 

PROGRAM (INPUT, OUTPUT, PUNCH, PLOT, TAPE5=INPUT,  1 TAPE6=OUTPUT, 
TAPE7=PUNCH , TAPE1 7=PLOT; 


END 

Subroutine  Card(s) 
SUBROUTINE  ACTION1 


END 


SUBROUTINE  ACTIONZ 


END 

7-8-9  (EOR  Card) 

Data  Cards 

6-7 -8-9  (EOI  Card) 

NOTE:  The  file  assignments  on  the  Main-Program  header  card  are 

the  standard  SPURT  assignments. 
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SAMPLE  INPUT 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

000002 

000002 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

000002 

000003 

000004 

000005 

000007 

OOOOlO 

000013 

000017 

000022 

000025 

C 

C 

8888“ 

0000*6 

000067 

000056 

000063 

000065  20 

000105 

C 

C 

C 

000110  30 

000111 

00011* 

000132 

000135 

C 

000151  100 

000152 
000162 


SUBROUTINE  EXAMPL3 


THIS  PROGRAM  IS  PART  OF  THE  NORTHWESTERN  UNIVERSITY 
SPURT 

A SIMULATION  PACKAGE  FOR  UNIVERSITY  RESEARCH  AND  TEACHING 


COMMON  /CLCCK1/  DUMM1  ,NEvEN,ni)MM2*NEvEQ,LUN 
COMMON  MTL  (500)  * JUMP(5qo)i  MTQ(IOO)*  JUMQM00> 


THE  FOLLOWING  CARDS  ARE 


NEWT 
2 
5 

26 


NEWJ 

5 
1 
8 


the  exogenous  events 


to  RE  READ 


END  OF  EXOGENOUS  EVENTS  LIST 


initialization 

LMTL«500  ' 

LMTQalOO 

L-l 

MMaJJa.l 


LUN-5 

DUMaTIMELP(O) 

CALL  SeTcLK  (MTLiJUMP,LMTL«MTQ,JUMQ,LMTQ) 
DUM«TIMELp(l) 

PRINT  160 

PRINT  i3o«  MM* JJ.LiNEVENiNEVEQ 


DUMMY  ROUTINE  To  LOAD  ENDOGENOUS  EVENTS  «n  MASTeR.T IME.LIST 


L"2 

DO  20  jal ,10 
F*I 

JJa(ABS(CCS(F) I ) *7. 0*1.0 
MM«2*I/JJ 

CALL  CLOCK  (LiMMiJJ) 

PRINT  130,  mm,jj,l,neven.neveQ 

DUMaTlMELP(l) 


CALL  OuT  Nex?  event 


L«6 

CALL  CLOCK  (L1MM1JJ) 

PRINT  130*  MM* JJ»L»NeVEN»NeVfQ 

DUMaTiMELP(l) 

GO  TO  (100* 200 • 300 « 600 * 500 « 600*700 1 800 ) • J J 
KalOO 

PRINT  i20«  K«MM 
GO  TO  30 


SPTS9  0 
RPTS9  10 
SPTS9  20 
SPTS9  30 
9PTS9  <*o 
SPTS9  50 
SPTS9  60 
SPTS9  70 
SPTS9  BO 
»SPTS9  90 
SPTS9100 
SPTS91 10 
SPTSVi^C 
SPTS9130 
SPTS9160 
SPTS9150 
SPTS9160 
SPTS9170 
SPTS910O 
SPTS9190 
SPTS9200 
SPTS9210 
SPTS9220 
SPTS9230 
SPTS9260 
SPTS9263 
SPTS9250 
SPTS9260 
SPTS9270 
SPTS9280 

SPTS929O 

SPTS9300 

SPTS9310 

SPTS9320 

SPTS9330 

SPTS9360 

SPTS9350 

SPTS936o 

SPTS9370 

SPTS9380 

SPTS9390 

SPTS9600 

SPTS9610 

SPTS9620 

SPTS9630 

SPTS966O 

SpTS9650 

SPTS9660 

SPTS9670 

SPTS968O 

SPTS9*90 

SPTS9500 

SPTS9510 

SPTS9520 

SPTS95-»0 

SPTS” . 

SPT'  , 


I 
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00016J 

c 

200 

K>200 

000164 

PRINT  j 20*  K*MM 

000174 

L»5 

000175 

MMbMM.3 

000177 

JJ>3 

000200 

CALL  CLOCK  (L.MM.JJ) 

000203 

PRINT  130*  MM»JJ»L*NEVeN»NEVeQ 

000221 

DUMbTIMELP(I) 

000224 

r 

GO  TO  30 

000224 

300 

K«300 

000225 

PRINT  120,  K*MM 

000235 

r 

GO  TO  30 

000236 

400 

K«400  . 

000237 

PRINT  120.  K.MM 

000247 

L-3 

000250 

J.NEVEN/2*! 

000252 

JJaJUMP ( J) 

000255 

MM«MTl(J) 

000260 

call  CLOCK  (L.MM.JJ) 

000262 

PRINT  i30«  MM.JJ.L.NEVEN.NEVEQ 

000*00 

DUMaTlMELPID 

000303 

r 

GO  TO  30 

888384 

L 

5oo 

K«500 

PRINT  120,  K.MM 

000314 

L»6 

000315 

JJ.3 

000316 

CALL  CLOCK  (L.MM.JJ) 

000321 

PRINT  130,  MM.JJ.L.NeVpN.NeVeQ 

000337 

DUMaTlMELP(l) 

000341 

L"9 

000343 

CALL  CLOCK  (L.MM.JJ) 

000345 

PRINT  l3o.  MM.JJ.L.NEVEN.NEVEQ 

000363 

DUMaTIMELP(l) 

000366 

GO  TO  30 

888’“ 

600 

K«600  . 

PRINT  120.  K.MM 

000377 

L»2 

000400 

MMaMM.5 

000402 

JJal 

000403 

CALL  CLOCK  (L.MM.JJ) 

000*06 

PRINT  l30.  MM*JJ.L*NEVeN.NEvEQ 

000424 

DUMbTIMELP(I) 

000427 

r 

GO  TO  30 

000427 

000430 

700 

Ka?00 

PRINT  120.  K.MM 

000*6o 

L»B 

000441 

CALL  CL°CK  (L.MM.JJ) 

000444 

PRINT  130*  MM. JJ.LtNEVEN.NEVEQ 

000*62 

DUMaTlMELPdl 

000465 

c 

GO  TC  30 

000465 

BOO 

K»800 

S»»TS9560 

SPTS9570 


$PT$958<) 

9PTS9590 

SPTS9600 


$PT$9610 

SPTS9620 

SPTS9630 

SPTS9640 

SPTS9650 

5PTS9660 

<tPT*967o 

SPTS9680 
SPTS9690 
SPTS9700 
SPTS9710 
SPTS9720 
SPT99730 
SPTS9740 
SPTS97C0 
SPTS9760 
SPTS9770 
SPTS9780 
SPTS9790 
9PTS9800 
$PT$98lO 
$PTS98j>g 
5PTS9830 
SPTS9840 
SPTS9850 
SPTS9860 
SPTS9870 
SPTS9880 
SPTS9890 
9PTS9900 
SPTS9910 
SPf$9920 
SPTS9930 
SPTS9940 
$PT$99So 
SPTS9960 
SPTS9970 
SPTS9980 
SPTS9990 
$PTS9  0 
5PTS9  10 
SpT$9  20 
SPTS9  30 
SPTS9  40 
?PTS9  50 
$PT$9  6P 
$PT59  70 
SpT59  80 
SPTS9  90 
5PT59100 
SPTS9110 
$PTS*120 
SPTS9130 
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000466 

000476 

000477 

000502 

000520 

000523 


000523 

000523 

000523 


000523 


PRINT  i 20 * K«MM  SPTSV140 

L«7  SPTS9150 

CALL  CLOCK  (L'MM'JJ)  SPT49160 

PRINT  1 30*  MMtjjtLiNEVENiNEVEQ  SPTS9170 

0UM»TIMELP(I)  SPTS9190 

00  TO  30  SPTS9190 

C SPTS9200 

C SPTS9210 

120  FORMAT  (1Ho**ENTITY  *» I5i*  ACTIVATED  aT  SIMULATION  TIME  ■ **IB)SPTS9220 

130  FORMAT  (1hO*30X  ie*i4X*I8*14X*lB»10X,Tl6ilOX.ilO)  SPTS9230 

140  FORMAT  j 30X  t pSIMULATEO  T IME«10X*JUMP  A00R*19Xt  SPTS9240 

1 *L*16X*NEVEN*i6X*NEVEQV//>  SPTS925o 

END  SPTS9260 
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a 

3 

a 

</) 


o 

UJ 

> lO  <o  >o 

UJ 

z 


• O lO  lO  <o  <o 


• o <o  »o  <o 


z 

UJ 

> 

UJ 


o 


ft  fo  if)  *0 


CO 


O' 


IH  (VI  «NJ  (VI  • CXJ  (VI  (VI  • €Vi  (VI  .(SJ  (VI 


a 


•*0 


CO 


m 


o 

O 

O 


O 
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o 

o 


o 

o 
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USER  INSTRUCTIONS — SPURT2 : Stochastic  Generators 

The  STOGN  (stochastic-generating)  functions  enable  the  user  to 
generate  samples  from  various  user-defined  probability  distribu- 
tions and  calculate  sample  values. 

All  of  the  STOGN  functions  that  produce  random  values  use  the 
standard  library  random-number-generating  function  RANF.  Unless 
otherwise  preset,  the  seed  (and,  therefore,  the  entire  stream  of 
numbers  generated)  is  the  same  for  each  run.  To  change  the  seed, 
the  user  should  CALL  RANSET  (SEED)  during  his  simulation  system 
initialization.  A convenient  value  for  SEED  may  be  determined 
by  SEED  * TIME(0).  This  should  produce  a new  seed  each  time. 

NOTE:  The  user  is  cautioned  to  use  a TYPE  statement  in  all  of 

his  routines  that  use  the  stochastic  generators.  Failure  to  spe- 
cify the  routine  name  as  a TYPE  INTEGER  could  result  in  improper 
evaluation  of  mixed-mode  expressions. 

ST0GN1 

REAL  FUNCTION  ST0GN1 (NN,XXX,ORD,K) 

TYPE  REAL  XXX,  ORD 
TYPE  INTEGER  NN,  K 

ST0GN1  is  a discrete,  empirical,  probability  distribution,  defined 
by  the  user.  This  FORTRAN  function  accesses  a user-defined  prob- 
ability distribution  that  is  called  by  VALUE  = ST0GN1  (NN,XXX,ORD,K) . 
For  each  empirical  probability  distribution  that  the  user  employs, 
he  must  define  two  two-dimensional  arrays  XXX  and  ORD,  with  the  2nd 
subscript  of  these  two  arrays  being  the  identification  number  that 
the  user  assigns  to  the  probability  distribution.  K is  the  name  of 
the  probability  distribution.  Any  allowable  variable  names  of  TYPE 
REAL  may  be  substituted  for  XXX  and  ORD.  The  arrays  must  be  dimen- 
sioned in  the  user’s  program,  along  with  defining  the  variable  NN. 

ST0GN2 

REAL  FUNCTION  STOGN2 (NN,XXX,ORD,K) 

TYPE  REAL  XXX,  ORD 
TYPE  INTEGER  NN,  K 

STOGN2  enables  the  user  to  approximate  a continuous  probability 
distribution  by  means  of  a piecewise  linear  one.  The  statement 
VALUE  = STOGN2 (NN,XXX ,ORD ,K)  will  cause  to  be  returned  values  that 
represent  a random  sample  from  a particular  distribution.  Other- 
wise, the  same  rules  apply  to  the  general  case  for  STOGN2  as  for 
STOGN1 . 
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ST0GN6  o 

REAL  FUNCTION  ST0GN6(N,P)  § 

TYPE  REAL  P o 

TYPE  INTEGER  N 3 

ST0GN6  enables  th  user  to  obtain  a random  sample  from  the  negative 
binomial  distribution,  with  parameters  N (number  of  successful 
trials)  and  P (probability  of  success).  S is  the  value  returned 
by  ST0GN6  and  represents  the  number  of  unsuccessful  trials.  The 
call  is  of  the  form  S = ST0GN6(N,P).  The  user  is  cautioned  to  ob- 
serve the  restrictions  of  N > 0 and  0.0  < P < 1.0. 

UNIFRM,  NORMAL 

REAL  FUNCTION  UNIFRM(A,B) 

REAL  FUNCTION  NORMAL (A, B) 

TYPE  REAL  A, B 

UNIFRM  obtains  a sample  of  real  values  that  are  equally  likely  to 
fall  between  the  values  A and  B,  where  A < B.  The  user  is  able  to 
sample  from  a uniform  distribution  defined  on  the  interval  from  A 
to  B,  The  function  is  called  by  XNUM  = UNIFRM(A,B). 

NORMAL  allows  the  user  to  obtain  a random  sample  from  a normal  dis- 
tribution, with  mean  A and  standard  deviation  B.  FUNCTION  NORMAL 
is  called  by  XNUM  = N0RMAL(A,B). 

RANDIN 

INTEGER  FUNCTION  RANDIN (A,B) 

TYPE  INTEGER  A,B 

RANDIN(A,B)  provides  a uniform  distribution  of  integers  between  the 
limits  of  A and  B.  The  value  is  one  of  the  integers  A,  A + 1,  * • * , 

B — 1,  B,  where  A < B,  with  equal  probability  of  each.  The  call  to 
this  function  is  of  the  form  NUM  55  RANDIN(A,B). 

LINEAR,  DRAW 

REAL  FUNCTION  LINEAR(A, B) 

LOGICAL  FUNCTION  DRAW (A) 

TYPE  REAL  A, B 

LINEAR  provides  the  user  with  a random  supply  from  a (cumulative) 
distribution  function  F,  which  is  obtained  by  linear  interpolation 
in  a nonequidis tant  table  defined  by  A and  B,  such  that  A(i)  = F(B(i)). 
It  is  assumed  that  A and  B are  one -dimensional  real  arrays  of  the 
same  length,  that  the  first  and  last  elements  of  A are  equal  to  0.0 
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and  1.0,  respectively,  and  that  A(i)  < A(j)  and  B(i)  < B(j)  for 
i < j.  The  call  to  LINEAR  is  XNUM  = LINEAR(A,B). 

DRAW  returns  a value  of  .TRUE,  with  the  probability  A and  .FALSE, 
with  the  probability  1 — A.  DRAW  is  always  .TRUE,  if  A > 1 and 
is  always  .FALSE,  if  A £ 0.  Consider  the  following  example  of 
the  use  of  the  function  DRAW:  IF  ( DRAW(0.72)  ) 20,  30.  This 

will  transfer  control  to  statement  20  with  a probability  of  oc- 
currance  of  0.72  and  to  statement  30  with  a probability  of  0,28, 

NEGEXP,  ERLANG 

REAL  FUNCTION  NEGEXP (A) 

REAL  FUNCTION  ERLANG (A, B) 

TYPE  REAL  A,B 

NEGEXP  obtains  a random  sample  from  the  negative  exponential  dis- 
tribution with  mean  1/A,  defined  by  —(,1/A)  [ln(random  number)]. 

This  is  the  same  as  random  "waiting  time"  in  a Poisson-distributed 
arrival  pattern  with  expected  number  of  arrivals  per  unit  time 
equal  to  A.  A call  to  FUNCTION  NEGEXP  could  be  XNUM  = NEGEXP (A) 
or  XNUM  = NEGEXP (1 . 0/XMEAN) . 

ERLANG  obtains  a random  sample  from  the  Erlang  distribution  with 
mean  1/A  and  standard  deviation  1/(A/B).  It  is  defined  by  B basic 
drawings  of  a random  number,  if  B is  an  integer  value,  or,  other- 
wise, by  B + 1 drawings.  Both  A and  B must  be  greater  than  zero 
in  the  call  to  ERLANG:  XNUM  = ERLANG (A, B) . 

P0ISSN 

INTEGER  FUNCTION  POISSN(A) 

TYPE  REAL  A 

POISSN  provides  a random  sample  from  the  Poisson  distribution  with 
parameter  A.  It  is  obtained  by  n + 1 basic  drawings  of  random 
numbers,  where  n is  the  function  value  defined  as  the  smallest  non- 
negative integer  for  which 

n -A 

n RANF(0)  < e , 

i = 0 

where  RANF  is  the  random-number- generating  function.  When  the 
parameter  of  A is  greater  than  20.0,  the  value  is  approximated  by 
the  integer  value  of  NORMAL (A,  SQRT (A) ) or,  when  this  is  negative, 
by  zero.  A sample  call  is  of  the  form  NUM  = POISSN(A). 
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DISCRT 

INTEGER  FUNCTION  DISCRT(A) 

TYPE  REAL  A 

The  one-dimensional  real  array  A is  interpreted  as  a step  function 
of  the  subscript,  defining  a discrete  (cumulative)  distribution 
function.  The  function  value  is  an  integer  in  the  range  [lsb  - 1, 
usb  - 1],  where  lsb  and  usb  are  the  lower  and  upper  subscript  bounds 
of  the  array.  It  is  defined  as  the  smallest  i,  such  that  A(i  + 1)  > 
y , where  y is  the  basic  random  number  produced  by  RANF  and  where 
A(usb)  = 1.0.  The  call  is  of  the  form  NUM  = DISCRT(A).  ^ 

HISTD 

INTEGER  FUNCTION  HISTD(A) 

TYPE  REAL  A 

HISTD  provides  the  user  with  the  random  Value  of  an  integer  in  the 
range  [lsb,  usb],  where  lsb  and  usb  are  the  lower  and  upper  sub- 
script bounds  of  the  one-dimensional  real  array  A.  The  latter  is 
interpreted  as  a histogram  defining  the  relative  frequencies  of  the 
values . 

Tli is  function  is  more  time-consuming  than  the  function  DISCRT,  where 
the  cumulative  distribution  function  is  given,  but  it  is  more  useful 
if  the  frequency  histogram  is  dynamically  updated  at  run  time.  A 
sample  call  is  NUM  = HISTD(A). 

RANPER 

SUBROUTINE  RANPER(N,M) 

TYPE  INTEGER  N,M 

Subroutine  RANPER  generates  a uniformly  distributed,  random  permu-  * 
tation  of  the  integers  1,  2,  ••*,  M and  stores  it  in  the  array  N, 
where  N is  an  integer- valued  array  of  dimension  M(>1) . RANPER  is 
called  by  CALL  RANPER(N,M) . 
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Job  Deck  Structure 


Job  Cards 
Run (s) 

LIBRARY (SPURT1,SPURT6) 

LGO . 

7-8-9  (EOR  Card) 

Main-Problem  Cards 

PROGRAM (INPUT, OUTPUT, PUNCH, PLOT, TAPE5=INPUT,  1 TAPE6*0UTPUT , 
TAPE7=PUNCH ,TAPE17=PL0T) 


END 

Subroutine  Card(s) 
SUBROUTINE  ACTI0N1 


END 


SUBROUTINE  ACTIONZ 


END 

7-8-9  (EOR  Card) 

Data  Cards 

6— 7— 8— 9 (EOI  Card) 

NOTE:  The  file  assignments  shown  on  the  Main-Program  header  card 

are  the  standard  SPURT  assignments. 
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SAMPLE  INPUT 


o 

o 

o 


000002 

000002 


000002 

000002 

000002 

000005 

000013 

000015 

000021 

000027 

000031 

000040 

000043 

000051 

000053 

000057 

0Q0065 

000067 

000076 

000101 

000107 

000111 

000114 

000122 

000124 

000133 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  TESTOEN 


this  program  is  part  of  the  northwestern  university 

SPURT 

A simulation  package  for  university  research  and  TEACHING 


THIS  IS  A test  program  to  check  the  results  of  the 
THE  RAN0CM  NUMBER  GENERATORS  OF  THE  SPURT  PACKAGE 
THIS  ROUTINE  WILL  ALSO  CHECK  THE  PERFORMANCE  OP  THE  HISTOGRAM 
AND  PLOT  PACKAGE  < STIXj,STTX2»STIX3»GRaPH,En6PlT) 


000002  INTEGER  RANOIn,PCISSn,HISTD#DISCRT 

000002  TYPE  LOGICAL  DRAW 

000002  REAL  NORMALtLINEAR 

000002  real  negexp 

DIMENSION  X<»(5) 

COMMON  /QPLOTQ/  a(5),PLCTSW 

DIMENSION  XXX20.2),  CRd2<3,2),  XXX1<5,1),  CRdI(5.\) 

COMMON  VAlUEs1(104) 

1 » VALUES2 (104) • VALUFS3 ( 104) . VALUEST < 104) , VALUEs8«To4) 

1VALU£S9(104) 

DATA  (X4«, 15, ,35. ,35, 1,5, 1,6) 

DATA  <XXX2»0#2#0»T#1.0»0#4#6,99#1,0>  • <OR02«4#6’»5,0»6,6»1  1 ,0,15,0 
15, 0) ♦ (XXX1»0. 0. 0. l5»0*50»0. 05*1. 00) »<ORoi»0. 0.1.0. 2. 0,3t 0,4,0) 
DUM»TimELP(0) 

CALL  STIXi ( VALUES2, 7, 0, 3,0,40, VALUE, 6HSTcGNi, 6) 

DO  10  t»l, 10000 
VAL°E«STCGNl(3,xXX2»eR02,l) 

CALL  STI Xg ( VALUES2«7,0, 3,0,4p, VALUE,6HSTcGNi ,0) 

10  continue 

CALL  STIX3(VALUES2, 7,0, 3, 0,40, VALUE, 6HSTCGN1,6'| 

DUM»TIMELP(1) 

CALL  STIXI (VALUESl,4,OtO.O,A6»VALUE*6HSTOGN2,6) 

DO  30  1*1 ,10000 
VALUE»ST0GN2 (5, XXXI »CRD1 , 1 ) 

CALL  STIX2(VaLUES1,4,0,0,0,4O,VaLUE,6HST0GN2.6) 

30  CONTINUE 

CALL  STIX3I VALUES 1,4, 0,0 ,0,40, VALUE# 6HSTCGN2, 6) 

DUM«TIMELP(1) 

CALL  STIXI ( VAlUES9,4o, 0# 0,0 #40# VALUE #6HST 0GN6.6) 

DC  70  ial #10000 
VALUE«STCGN6 (io,0»5l 

call  ST  1X2 (VAlUES9#40,0 #0,0,46# VALUE #6HSTqGN6^6) 

70  CONTINUE 

CALL  STIX3(VALUES9#40#0«0#0#40«VALUE#6HSTCGN6#6) 

DUM«TIMELP<1> 


SPTS1  0 
SPTSI  10 
**SPTS1  20 
SPTSI  3o 
SPTSI  40 
SPTSI  50 
SPTSI  60 
SPTSI  70 
SPf$l  0Q 
. SPTSI  90 
••5PTS1100 
SPTSI 1 10 
SPTS1120 
••SPTSI 130 
SPTS1140 
SPTS1150 
SPTSH60 

SPTSi  I f(j 

sPTSneo 
SPTSi 190 
••SPTS1200 
SPTS1210 
SPTS1220 
SPTS1230 
SPTS1240 
SPTS1250 
SPTS126Q 
SPTS‘27Q 
SPTS120O 
SPTS1290 
# SPTS1300 
SPTSI 310 
SPTS1320 
#1SPTS1330 
SPTS1340 
SPTS1350 
SPTS1360 
SPTS1370 
SPTS1380 
SPTS1390 
SPTS1400 
SPTS1410 
SPTS1420 
SPTS1430 
SPTS1440 
SPTS1450 
SPTS1460 
SPTS1470 
SPTS140O 
SPTS1690 
SPTS1500 
SPTS1510 
SPTS1520 
SPTS1530 
$PTS1540 
SPTS1550 
SPTS1560 
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000136 

000144 

000146 

000151 

000160 

000162 

000171 

000174 

000202 

000204 

000207 

000215 

0002l7 

000226 

000231 

000237 

0002*1 

000243 

000252 

000254 

000263 

00026* 

000274 

000276 

000301 

000307 

mm 

000323 

000331 

000333 

000335 

000344 

000346 

000355 

000360 

000366 

000370 

000373 

000375 


000376 

000*0® 

000*07 

mt 

000*21 


CALL  STIX1 ( VALUES1.21, 0<-21,6<42< VALUE <6HRANDIN<6> 
DC  90  I»l<10000 

VALUE»HANDIN(-20«20) 

CALL  STIX2(VALUESl*2l.0f21,O<*2<VALUE<6HRANDiN«6) 
90  CONTINUE 

CALL  ST  I X3(VALUESl<2pO  <-21. 6<42<VALUE<6HRANDIN<  6) 
DUM»TIMELP(1) 

CALL  STIXl(VALUESl,4,0*-4,0,40.VALUE.6HN0RMAL,6) 

DC  100  I»I<10000 
VALUE "NORMAL (0.0, 1 .0) 

call  ->TIX2(VAlUeS1,4,0*-4,0.46»VALUE*6Hn0RMAL.6) 
100  continue  . . 

CALL  STIX3(VALUESl,4.o*-*.0.40»VALUE.6HN0RHAL,6) 
DUM»TIMELP(1) 

call  ST Ixl (VAlUES1<20,0<0, 0<40<VALUE<6HP0ISSN< 6) 

DC  110  I*l<10000 
VALUE»PCISSN(5,o> 

CALL  ST  1X2 ( VALUES1 • 20 ( 0* 0( 0 • 40t VALUE <6HPc ISSN «6) 

lio  continue 

CALL  STIX3(VALUESp2o.O*0*0«46*VALUE«6HPciSSN.6) 
dum»tjmelpii> 

CALL  STIX1(VALUES1,10.0<0(0,40«VALUE,6HERLAN6,6) 

DC  136  IB1’10000 
VaLUf"cRLaNG 1 0.5 < 2.0) 

CALL  St  1x2 (VALuESl * 10, 0*0,0»46iVALuE»6HERLANG,6) 
130  CONTINUE 

CALL  STIX3(VAluESj  •10'0'0'0'*6*  VALUE* SHEBANG'S) 

DUM«TiMeLP(1) 

CALL  STlxl(VALUES1.4t5.t5,46,vALUE»5HHlSTD,5) 

DC  1*6  I>1«10000 
VALUE »HISTU(X4) 

CALL  STIX2(VALUES1,4,5.,5,40*VALUE,5HHISTD,5) 

1*0  CONTINUE 

CALL  ST IX3 (VALUESp 4.5* >5* 46<VALUE<5HHISTD< 5) 
nUM«T JMfLP < 1 1 

CALl  ST  1X1  (VALUESin(5l.,5<iiV<VALUE<4HDRAWl4) 

DC  176  I ■ 1 * 10000 
IF (DRAW (0.69) > 162,164 
162  VALUE.1,0 
GO  TC  l'66 
164  VALUE*6<0 
166  CONTINUE 

CALL  STIX2(VALUESpl.5»" <5<16<VALUE<4HDRAW< a) 

1*0  CONTINUE 

CALL  STlX3(VALl]ESl,lt5<-.5,lo<VALUE,4H0RAW<4) 
DUM»TIMELP(1> 

return 

END 
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SPURT 3 


USER  INSTRUCTIONS — SPURT3 : Statistical  Computations 

STIX1 , STIX2,  ST  1X3 

SUBROUTINE  STIX1,  STIX2 , and  STIX  3 (TABLE, VMAX,VMIN,NINK, VAB, 
ITITLE , LNTHTL) 

TYPE  REAL  VAB , TABLE , VMAX, VMIN 
TYPE  INTEGER  NINK,LNTHL 
ITITLE  is  a Hollerith  constant 


These  three  subroutines  accumulate  and  print  out  a frequency  table 
and,  optionally,  plot  a CalComp  histogram.  The  calls  to  these  STIX 

clT6 

CALL  STIX1 (TABLE, VMAX, VMIN, NINK, VAB, ITITLE, LNTHTL) 
CALL  STIX2 (TABLE, VMAX, VMIN, NINK, VAB, ITITLE, LNTHTL) 
CALL  STIX3 (TABLE, VMAX,VMIN,NINK, VAB, ITITLE, KNTHTL) 

VAB  is  the  variable  being  accumulated;  TABLE  is  the  frequency  table 
used  for  accumulating  a count  of  the  different  values  of  the  vari- 
able VAB;  NINK  is  the  number  of  increments  desired  in  the  table; 
VMAX  and  VMIN  are  the  maximum  and  minimum  values,  respectively,  in 
the  table. 

The  dimension  TABLE  must  be  specified  in  Liie  user's  program  and  must 
have  at  least  NINK  + 4 entries.  The  additional  four  entries  count 
those  values  of  VAB  that  are  either  greater  or  less  than  the  range 
specified  by  VMAX  and  VMIN  (i.e.,  overflow  and  underflow)  and  also 
accumulate  a running  sum  and  sum  of  squares  for  use  by  STIX3. 

ITITLE  is  a Hollerith  constant  (defined  either  in  a DATA  statement 
or  in  the  calling  sequence)  that  is  used  to  label  the  plot  produced 
by  STIX.  LNTHTL  is  the  length  of  the  title,  specified  as  the  num- 
ber of  characters  in  ITITLE.  »• 

NOTE:  The  user  is  required  to  pass  the  same  parameters  to  STIX1, 

STIX2,  and  STIX3  for  each  user-defined  frequency  table  being  built 
and  plotted. 

The  three  routines  are  used  as  follows.  STIX1  will  initialize  the 
frequency  table  to  zero.  STIX2  will  add  a one  to  the  proper  count- 
er in  TABLE  associated  with  the  current  value  of  VAB.  STIX3  will 
print  out  the  frequency  table  TABLE  and  a plot  of  the  histogram 
will  occur  at  the  user's  option.  If  a CalComp  plot  has  been  made, 
the  user  is  cautioned  to  place  a call  to  ENDPL.T  before  any  possible 
program  terminations.  (See  Ref.  1,  p.  6.3.) 
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ST  1X4 

SUBROUTINE  STIX4  (X,N,XMIN,XMAX,STADEV,XBAR) 

TYPE  REAL  X,XMIN,XMAX,STADEV,XBAR 
TYPE  INTEGER  N 

STIX4  takes  a one-dimensional  array  X(l),  ••*,  X(N),  which  rep- 
resents values  of  a variable  X,  and  computes  the  mean  (XBAR) , 
standard  deviation  (STADEV) , maximum  value  (XMAX) , and  the  mini- 
mum value  (XMIN) . The  call  is  of  the  form  CALL  STIX4  (X,N,XMIN, 
XMAX, STADEV, XBAR) , where  X is  an  array  of  length  N that  is  de- 
fined -in  the  calling  program.  XMIN,  XMAX,  STADEV,  and  XBAR  are 
the  values  returned  by  the  arguments  of  STIX4. 

STIX5 

SUBROUTINE  STIX5  (X,Y,N,CORR) 

TYPE  REAL  X,Y,CORR 
TYPE  INTEGER  N 

STIX5  requires  two  one-dimensional  arrays,  X(l),  ••*,  X(N)  and 
Y(l),  ••*,  Y (N) , which  represent  the  values  of  two  variables  X 
and  Y.  If  the  correlation  coefficient  of  these  two  arrays  is  de- 
sired, then  the  following  call  is  made  to  STIX5:  CALL  STIX5  (X, 

Y,N,CORR).  This  call  will  return  to  the  user  in  CORR  the  value 
of  the  correlation  coefficient  between  the  two  arrays  X and  Y. 

STIX6 

SUBROUTINE  STIX6  (A , N , AMED I AN , RANGE ) 

TYPE  REAL  A, AMED I AN , RANGE 
TYPE  INTEGER  N 

STIX6  is  designed  to  lank  a one -dimensional  array  A and  return 
the  value  of  the  median  and  the  range  of  the  data  contained  in 
the  N data  entries  of  A.  STIX6  is  called  by  CALL  STIX6  (A,N, 

AMED IAN , RANGE) . The  routine  uses  a bubble  sort  to  rank  the  data. 
This  enables  the  user  to  call  STIX6,  with  dummy  parameters  for 
AMEDIAN  and  RANGE,  and  use  it  just  to  sort  a one-dimensional  ar- 
ray. 

NOTE:  For  ranking  two-dimensional  arrays,  see  List-Processing 

and  Queue -Manipulation,  SPURT4:  subroutines  RANKQS,  IRNKQS, 

RANKQL , and  IRNKQL. 

STIX7 

SUBROUTINE  STIX7  (X,N,XI,XF,DX,MUNIT,ISTAT,MODE,IHIST,ITITLE,LNTH) 
TYPE  REAL  X,XI,XF,DX 
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TYPE  INTEGER  N , I STAT ,M0DE , IHI ST , LNTH 
MIJNIT  and  ITITLE  are  Hollerith  constants 

The  call  for  STIX7  is  C\LL  STIX7  (X ,N,XI ,XF, DX,MUNIT , I STAT ,M0DE , 
IHIST , ITITLE , LNTH) . STIX7  will  produce  a statistical  description 
of  the  data  found  in  the  first  N locations  of  array  X,  MUNIT  is 
a variable  that  contains  the  units  in  which  the  members  of  X are 
measured.  ISTAT  is  a control  parameter.  If  its  value  is  nonzero, 
the  sample  size,  mean,  standard  deviation,  standard  error,  mini- 
mum value,  maximum  value,  and  range  will  be  printed  out.  If  ISTAT 
equals  zero,  these  will  be  suppressed. 

In  a similar  manner,  a nonzero  value  for  MODE  will  cause  the  mode 
to  be  printed  out  and  a nonzero  value  of  IHIST  will  cause  a histo- 
gram to  be  printed  on  the  line  printer.  ITITLE  is  the  title  of 
the  histogram  and  consists  of  LNTH  characters,  whe^e  LNTH  £ 90. 

If  the  mode  and/or  histogram  is  desired,  XI,  XF,  and  DX  must  be 
defined.  (They  must  always  be  included  in  the  calling  sequence, 
however.)  XI  denotes  the  initial  value  for  the  histogram;  XF  is 
the  final  value;  DX  is  the  increment.  STIX7  is  set  up  to  handle 
100  increments  between  XI  and  XF.  The  value  printed  for  each  DX 
is  the  benchmark  (median)  value  of  that  interval. 

WARNING:  If  ISTAT  = MODE  = IHIST  = 0 , no  printout  will  result . 

Make  sure  .that  at  least  one  of  these  parameters  is  nonzero. 

Job  Deck  Structure 


Job  Cards 
Run(s) 

LIBRARY (SPURT2 ,SPURT3 , SPURT6) 

LGO. 

7-8-9  (EOR  Card) 

Main-Problem  Card(s) 

PROGRAM (INPUT , OUTPUT , PUNCH , PLOT , TAPES* INPUT , 1 TAPE6-OUTPUT , 
TAPE7 =PUNCH , TAPE1 7 “PLOT ) 


END 

Subroutine  Card(s) 
SUBROUTINE  ACTION1 


END 
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SUBROUTINE  ACTIONZ 


END 

7-8-9  (EOR  Card) 

Data  Cards 

6— 7— 8— 9 (EOI  Card) 

NOTE:  The  file  assignments  on  the  Main-Program  header  card  are 

the  standard  SPURT  assignments. 
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SUBROUTINE  TESTC0R 

SPTS4  0 

c 

. SPTS4  10 

c 

c 

this  program  is  part  of  the  northwestern  university 

SPTS*  30 

c 

SPTSA  40 

c 

SP  * » 50 

c 

S P u R T 

SPTS4  60 

c 

a simulation  package  for  university  research  and  teaching 

SPTS4  To 

c 

SPTS4  00 

c 

SPTS4  90 

c 

c 

SPTS4110 

c 

SPTS4120 

c 

c 

this  is  a test  pRcgRa**  to  check  the  Results  of  the 

SPTS4I40 

c 

SPTS41S0 

c 

STIX5(C0RRELATICN  CCEF.)  routine  OF  the  spurt  package 

SPTS4160 

c 

ST  1X6  IS  ALSO  tested 

SPTS4170 

c 

SPTS410O 

c 

c 

SPTS4200 

000002 

COMMON  X(2000) •Y(2000> 

SPTS4210 

000002 

DO  10  1*1 *2000 

SPTS<*220 

000004 

X<!)«RANF<-1> 

SPTS4230 

000010 

000016 

10 

Y<I)*RaNF|-1> 

SPTS4240 

PRINT  8° 

SPTS4250 

000021 

so  format  is/**  Test  of  stixs  and  stix6*i 

SPTS426o 

000021 

20  fORMaT ( 3/**  COEFFICIENT  =F  CORRELATION  reTWEEN  »,a7. 

SPTS4270 

1*  AND  OfATi*  m *|F9,S) 

SPTS4280 

98881 

DUM«TTMELP<0> 

CALL  ST1X5(X,X,2000,kh 

SPTS429Q 

SPTS4300 

000027 

N1«1hX 

SPTS4310 

000030 

N2»1Hx 

SPTS4320 

000032 

3?1NT  20«N1»N2,r 

SPTS4330 

00004** 

()UM*T iMgLP  (0) 

';cT<?4  34n 

000047 

CALL  ST  I x5 ( X«  y «2000«R) 

SPi  S' 

88881! 

NasjHY 

PRINT  20iNliN2,R 

SPTS4Tt>o 

SPTS4370 

000065 

dum«timelpU> 

SPTS430O 

000070 

CALL  CTIX6(X«2000.AMEDIAN,RANGE) 

SPTS4390 

000073 

PRINT  30'N1«AmEDIAN«RANGE 

SPTS4400 

888l°0 

DUM«TIMELP(1* 

SPTS4410 

CALL  STIX6<Yt2000,AMEDlAN,RAMGE> 

SPTS4420 

000113 

Nl«lHY 

SPTS4430 

000115 

PRINT  30*N1 tAMEDlAN, RANGE 

SPT  S4440 

000126 

0UM«TIMELP(1> 

SPTS445o 

000131 

c 

return 

SPTS4460 

SpTS4470 

c 

SPTS4480 

c 

30  FORMAT ( ///•  FOR  THE  VARIABLE  **A7«*  MEDIAN  * ••Flo.4«loX« 

SPTS4490 

000131 

SPTS4500 

1*RANGE  ■ •*Fl0.4) 

SPTS4510 

000131 

END 

SPTS4520 

♦ 


2770 


000  0071 
SPURT3 


000  0071 


000  0071 


EDUCATIONAL  INFORMATION  NETWORK 


EDUCOM 


000  0071 

SPUP.TS  . 

. SAMPLE  OUTPUT 


•••••  $TI  X4  *****  DATE  fll/27/70  PAGE  NO.  23 


TEST  OF  stixa 

MIn  ■ 14,065 

MAx  ■ 18,956 

SIGMA  ■ _ 1*445 

MEAN  ■ 16,631 

••  cp  time  since  last  call  ..  *024  seconds 


test  OF  ST  1X5  And  STIX6 

COEFFICIENT  QF  CORRELATION  BETWEEN  X AND  X ■ 1, 00000 

COEFFICIENT  OF  CORRELATION  BETWEEN  X AND  7 > -.02223 

..  CP  TIME  SINCE  LAST  CALL  ..  .129  SECONDS 


FOR  THE  VARIABLE  X MEDIAN  ■ .4946  RANGE  * .9996 

..  CP  TIME  SINCE  LAST  CALL  ..  1*303  SECONDS 


FOR  THE  VARIABLE  Y MEDIAN  • .4809  RANGE  * .9979 

..  CP  TIME  SINCE  LAST  call  *.  1*273  SECONDS 
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USER  INSTRUCTIONS — SPURT4:  Analog  Simulators 

The  following  two  routines  are  designed  to  simulate  an. analog  com- 
puter on  a digital  computer,  thereby  making  it  possible  to  obtain 
effects  similar  to  those  displayed  by  a hybrid.  Both  routines  op- 
erate as  integrators  in  an  analog  computer,  integrating  negatively 
with  respect  to  time.  Input  (XIN)  must  be  a floating-point  num- 
ber. Output  (YOUT  and  TOUT)  is  two  arrays,  one  giving  values  of 
time  and  the  other  giving  the  corresponding  negative  integral  val- 
ues. The  output  arrays  are  not  printed  out.  Initial  conditions 
Y may  also  be  specified. 

ANALOG 

SU BROUT I NE  ANALO G (X I N , Y , YOUT , TOUT , T , DELTA , L IM I T , N ) 

TYPE  REAL  X IN, Y, YOUT, TOUT, T, DELTA 
TYPE  INTEGER  LIMIT, N 

Subroutine  ANALOG  is  called  in  the  following  form:  CALL  ANALOG (XIN, 

Y, YOUT, TOUT, T, DELTA, LIMIT, N) . The  input  value  is  XIN.  YOUT  and 
TOUT  are  the  output  arrays  of  integrated  value  and  time,  respective- 
ly. The  user  is  cautioned  to  dimension  YOUT  and  TOUT  to  the  expect- 
ed size  in  his  program.  Integration  is  carried  out  at  discrete  time 
intervals  DELTA  and  for  the  number  of  intervals  LIMIT.  Any  number 
of  successive  integrations  N can  be  carried  out.  Thus,  for  N ■ 1, 
a first-order  integration  is  performed;  for  N ■ 2,  a second-order 
integration  is  performed;  etc.  Note  that  LIMIT  and  N are  fixed- 
point  numbers.  T is  the  initial  value  of  time,  and  TOUT(l)  - T. 

Thus,  TOUT (2)  - T + DELTA  and  the  last  value  TOUT (LIMIT)  = T + DELTA 
*(LIMIT  —1).  Y is  a vector  of  initial  conditions  of  size  N,  where 
Y(l)  is  the  initial  value  for  the  first-order  integration,  Y(2)  for 
the  second-order,  etc.  Thus,  Y(l)  gives  the  initial  value  of  y; 
the  output,  Y(2),  gives  the  initial  value  of  fy  dt,  etc.  The  array 
Y(N)  must  be  dimensioned  and  provided  in  the  user’s  program. 

A second-order  integration  works  exactly  as  do  two  successive  inte- 
grators on  an  analog  computer.  Thus,  for  a positive  input,  the  out- 
put array  will  also  be  positive. 

SECND 

SUBROUTINE  SECND(XIN, YIC, DAMP , FREQ, T, YOUT, TOUT, DELTA, LIMIT) 

TYPE  REAL  XI N, YIC, DAMP, FREQ, T, YOUT, TOUT, DELTA 
TYPE  INTEGER  LIMIT 

This  routine  provides  the  solution  to  the  commonly  used  control  equa- 
tion 
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F(x)  = d2y/dt2  = 2zwn(dy/dt)  + w2y, 

where  z is  the  damping  coefficient,  w is  the  natural  frequency, 
and  F(x)  is  a constant  forcing  function  (such  as  a step  input). 
SECND  is  equivalent  to  the  analog  connection 


and  is  similar  in  operation  to  the  subroutine  ANALOG. 


The  form  of  the  call  is  CALL  SECND(XIN,YIC, DAMP, FREQ, T,Y0UT, TOUT, 
DELTA, LIMJT) , where  T is  the  initial  value  of  time,  DELTA  is  the 
integration  interval,  LIMIT  the  number  of  values  calculated,  and 
YOUT  and  TOUT  the  output  arrays.  All  are  defiend  as  in  subroutine 
ANALOG.  Only  LIMIT  is  fixed-point  and  YOUT  and  TOUT  must  be  dimen- 
sioned in  the  user’s  program.  YIC  is  the  initial  value  of  YOUT. 
Thus,  YOUT(l)  = YIC.  XIN  is  the  forcing  function  F(x) . DAMP  is 
the  damping  coefficient  z.  FREQ  is  the  natural  frequency  wn< 

Job  Deck  Structure 


i 


Job  Cards 

LIBRARY (SPURT 5 , SPURT6) 

LGO . 

7-8-9  (EOR  Card) 

Main-Problem  Card(s) 

PROGRAM (INPUT , OUTPUT , PUNCH , PLOT , TAPES* INPUT , 1 TAPE6-0UTPUT , 
TAPE7=PUNCH,TAPE17=PLOT) 


END 

Subroutine  Card(s) 
SUBROUTINE  ACTION1 


END 
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SUBROUTINE  ACTIONZ 


END 

7-8—9  (EOR  Card) 

Data  Cards 

6— 7— 8— 9 (EOI  Card) 

NOTE:  The  file  assignments  shown  on  the  Main-Program  header  card 

are  the  standard  SPURT  assignments. 
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SAMPLE  INPUT/OUTPUT 

The  input  for  the  Analog  Simulators  (SPURT4)  will  consist  of 
floating-point  numbers  that  are  integrated  negatively  with  re- 
spect to  time.  The  output  will  be  two  arrays,  one  giving  val- 
ues of  time  and  the  other  giving  the  corresponding  negative 
integral  values. 
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USER  INSTRUCTIONS — SPURTS : List-Processing  and  Queue-Manipulation 

ADFIF0,ADLIF0,  REMOVE,  PURGE,  D.ISPL  , I D IS  PL  , NUMLST  . 

SUBROUTINE  ADFIFO(L 1ST, N,M, ENTRY) 

SUBROUTINE  ADL IFO (L I ST , N ,M , ENTRY) 

SUBROUT I NE  REMOVE (LIST, N,M, ENTRY) 

SUBROUTINE  PURGE (LIST ,N,M) 

SUBROUTINE  DISPL (LIST ,N,M) 

SUBROUTINE  IDISPL (LIST ,N,M) 

INTEGER  FUNCTION  NUMLST(LIST) 

INTEGER  N,M 

REAL  (or  INTEGER)  LIST, ENTRY 

The  manipulations  of  queues  may  be  handled  by  the  four  subroutines 
ADFIFO,  ADLIFO,  REMOVE,  and  PURGE.  REMOVE  will  remove  the  top  (or 
first)  element  from  the  list.  ADLIFO  inserts  an  element  at  the  top 
of  the  list,  which  will  be  removed  before  any  of  the  elements  pres- 
ently on  the  list.  ADFIFO  adds  an  entry  at  the  bottom  of  the  list, 
which  will  be  removed  only  after  all  the  elements  presently  on  the 
list  are  gone.  Lists  may  be  manipulated  by  using  both  ADLIFO  and 
ADFIFO  on  the  same  list  array.  A printout  of  the  contents  of  a 
list  may  be  achieved  by  use  of  either  DISPL  or  IDISPL. 

The  general  form  of  the  calls  to  these  routines  is  as  follows. 

CALL  ADFIFO (LIST ,N,M. ENTRY) 

CALL  ADLIFO (LIST, N,M, ENTRY) 

CALL  REMOVE(LIST,N,M, ENTRY) 

CALL  PURGE (LIST ,N,M) 

CALL  DISPL (LIST ,N,M) 

CALL  IDISPL (LIST ,N,M) 

NUM  = NUMLST(LIST) 

In  the  calling  sequence,  LIST  is  the  user-defined  array  of  size 
NXM  and  ENTRY  is  the  user-defined  vector,  dimensioned  (1 ,M) , used 
as  a buffer.  As  LIST(1,1)  contains  the  list  pointer,  only  N — 1 
entries  (each  of  size  1XM)  are  allowed  in  any  list. 

NOTE:  Before  loading  the  initial  entry  to  any  list,  be  sure  to 

clear  the  word  LIST(1,1)  to  zero. 

The  subroutines  are  designed  to  place  the  contents  of  a buffer  (EN- 
TRY) onto  a user-defiend  list.  The  buffer  ENTRY  should  be  filled 
by  the  user's  program  before  ADFIFO  or  ADLIFO  are  called.  In  the 
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case  of  REMOVE,  the  first  entry  is  taken  from  the  list  and  placed 
in  the  buffer  ENTRY.  The  user  may  then  use  its  contents. 

• * • . t 

The  integer  function  NUMLST  will  return  the  number  of  entries  in  a 
given  list.  IQ  ■ NUMLST(LIST3)  will  assign  a value  to  IQ  equal  to 
the  number  of  entries  in  LIST3. 

RANKQS , I RNK0S , RANKQL  , IRNKQL 

SUBROUTINE  RANKQS (LI ST, N,M, J) 

SUBROUTINE  IRNKQS (LIST ,N,M, J*! 

SUBROUTINE  RANKQL (LIST ,N,M,J) 

SUBROUTINE  IRNKQL (LIST ,N,M,J) 

INTEGER  N,M,J 
REAL  or  INTEGER  LIST 

Four  routines  are  provided  to  rank  queues  formed  by  other  SPURT 
list-processing  routines.  They  may  be  used  by  coding  of  the  fol- 
lowing form. 

CALL  RANKQS (LIST, N,M,J) 

CALL  IRNKQS (LI ST, N,M,J) 

CALL  RANKQL (L 1ST, N,M,J) 

CALL  IRNKQL(LIST,N,M, J) 

where  LIST  is  the  user-defined  array  of  size  NXM  and  J <_  M repre- 
sents the  ’’entry1'  position  that  is  to  be  used  to  produce  the  de- 
sired ranking. 

Subroutine  RANKQS  ranks  floating-point  numbers  with  the  smallest 
first  and  IRNKQL  ranks  integer  numbers  with  the  largest  first. 
Similarly,  INRKQS  ranks  integer  numbers  in  ascending  order. 

SEARCH,  INSERT,  DELETE 

INTEGER  FUNCTION  SEARCH (LI ST, N,M, J, ID) 

SUBROUTINE  INSERT(LIST,N,M, ENTRY, INDEX) 

SUBROUTINE  DELETE (LIST ,N ,M , ENTRY , INDEX) 

INTEGER  N,M,J, INDEX 

REAL  or  INTEGER  LIST, ENTRY, ID 

Three  routines  are  provided  to  facilitate  the  locating,  deleting, 
and  inserting  of  entries  in  the  middle  of  a list.  The  use  of  the 
INTEGER  SEARCH  function  in  the  form  INDEX  - SEARCH (LI ST, N,M, J, ID) , 
where  SEARCH  is  of  type  INTEGER,  will  search  LIST  (of  size  NXM)  in 
entry  position  J for  the  desired  ID.  If  a match  is  found,  SEARCH 
returns  the  position  in  the  list  of  the  first  entry  to  contain  the 
desired  ID.  If  no  match  is  found,  SEARCH  returns  a zero  value. 
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rt  Thus,  SEARCH  may  be  used  within  an  arithmetic  or  logical  IF  state- 
§ ment  to  determine  the  presence  or  absence  of  a desired  entry.  The 

0 user  may  use  either  an  integer  or  a real  variable  as  the  fifth  ar- 

ea gument  in  a call  to  SEARCH, 
o 

If  the  i^h  entry  has  been  located  (say,  by  using  SEARCH) , then  it 
may  be  removed  by  a call  to  DELETE  in  the  form  of  CALL  DELETE (LIST, 
N, M, ENTRY, INDEX) , where  INDEX  is  the  number  of  the  desired  entry 
to  be  removed  from  LIST  and  placed  in  ENTRY. 

To  place  a new  i*h  entry  in  the  list,  a call  to  INSERT  in  the  form 
of  CALL  INSERT(LIST,N,M, ENTRY, INDEX)  will  create  a new  ith  entry 
(i  is  noted  by  INDEX) . 

Job  Deck  Structure 

Job  Cards 
Run(s) 

LIBRARY (SPURT4 , SPURT6) 

LGO. 

7-8-9  (EOR  Card) 

Main-Problem  Card(s) 

PROGRAM (INPUT, OUTPUT, PUNCH, PLOT, TAPE5=INPUT,  1 TAPE6=OUTPUT , 
TAPE7=PUNCH,TAPE17=PLOT) 


END 

Subroutine  Card(s) 
SUBROUTINE  ACTION1 


END 


SUBROUTINE  ACTIONZ 


END 

7-8-9  (EOR  Card) 

Data  Cards 

6— 7— 8— 9 (EOI  Card) 
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SAMPLE  INPUT 


000002 

000002 

000002 

000002 

000002 

000002 


0^0002 

000003 

000004 

000006 

000007 

000011 

000012 

000014 

000021 

000025 

000030 

000033 

000036 

8888:? 

000063 

000044 

000046 


000062 
000065 
000070 
000072 
000074 
000077 
000103 
000106 
000111 
000113 
0001 13 


C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 


lo 

20 

30 


40 


50 


60 


SUBROUTINE  LIST! 


this  program  is  part  of  the  northwestern  university 
spurt 
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SPTSB  0 
$PTse  io 
*SPTS8  zo 
SPTSB  3o 
SPTSB  40 
SPTSB  50 
SPTSB  60 
SPTSB  70 
S<»TS8  80 
SPIS8  90 


•SPTSBlOO 


COMMON  A1.B1.C1.A.B.C 
INTEGER  A.BtC* A1 tBl tCl 

DIMENSION  Al (13*13) • BK12.it).  CK19.7) 

DIMENSION  A (26«20) • B(10t20),  C(20,10).  NMR0WS(20),  NMC0LS(2O) 

DIMENSION  I ENTRY  ( 1 1 10) 

DATA  <NMR0WS»2HRlt2HR2*2HR3t2HR4*2HR5t2HR6t2HRT»2HR8t2HR9*3HRl6t3H5PTS8170 
1R11 t3HRl2t3HRl3,3HR14.3HRl5,3HRl6t3HR17.3HR18tlHRl9t3HR20) • (NMCCLSSPTSBlBO 


SPTSBUO 

SPTS8120 

SPTSB130 

SPTS8140 

SPTS81S0 

SPTS8160 


2»2HCl,2HC2.2HC3,2HC4,2HC5.2HC6,2HC7,2HC8,2HC9,1HCl6t3HCH,3Hci2.3HSpTSfil90 
3C13*3HC14,3HC15*3HC16*3HC17,3HC18*3HC19,3HC20)  SPTS8200 


C"0 

MbO 

DUM-TIMELP(O) 

1-0 

I«I*10 

DO  30  J>1«10 
K»I  ♦ J 

IENTRY ( 1 * J) »K 

CALL  INSOUT  ( IeNTRY* ltlOtNMRcWSfNMcOLS) 
CALL  ADPIFO  (C.20.10, lENTRy) 

CALL  IOISPL  <C*20*10> 

nUM"T IMeLP ( 1 I 
IF  ( I ,LT,  20)  GO  7020 
1-0  ... 

I«I*100 
DC  50  j»l .10 
K»I*J 

IENTRY(1,J).K 

call  INSOUT  ( IENTRY t i • 10.NMR0WS.NMC0LS) 
CALL  ADlIFO  <c*20*10* IENTRY) 

CALL  IDlSPL  (C.20.10) 

DUM-TIMELP(I) 

IF  ( I. *LT.  200>  GO  TO  40 
DO  60  I »1 .4 

CALL  REMOVE  (C.20.10. IENTRY) 

CALL  INSOUT  (IENTRY. l.lO.NMROWS.NMcOLS) 
CALL  IDISPL  (C.20.10) 

DUMbTIMELPU) 

CONTINUE 

Return 

END 


SPTS8210 
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SPTS8240 
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SPTS8290 
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SPTS8320 

SPTSB3S0 

$PTs836o 

SPTS8370 

SPTS8380 

SPTS8390 

SPTS8400 

SPTS8410 

SPTSB420 

SPTS8430 

SPTSB440 

SPTS8450 

SPT$846o 

SPTS8470 

SPTS84B0 

SpTSB490 

SPTS8500 

SPTSB510 

SPTS8520 

SPTS8530 
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USER  INSTRUCTIONS— SPURT6:  Matrix  and  Graphical  Output 

OUT,  IOUT 

SUBROUTINE  OUT (C ,N ,NAME) 

SUBROUTINE  IOUT (K,N, NAME) 

TYPE  REAL  C 
TYPE  INTEGER  N,K 

Name  is  vector  of  Hollerith  constants 

Subroutine  OUT  prints  out  a square  matrix  with  row  and  column  head- 
ings. The  form  of  the  calling  statement  is  CALL  OUT (C,N, NAME) , 
where  C is  the  name  of  a two-dimensional  square  array,  N is  the  num- 
ber of  rows  (and  columns)  of  the  matrix  C,  and  NAME  is  the  name  of 
a vector,  dimensioned  N in  the  user's  program  that  contains  the 
names  to  be  printed  over  the  columns  (and  along  the  rows) . The 
heading  of  row  j and  column  j will  be  the  same,  for  j = 1,  N. 

The  vector  NAME  must  contain  Hollerith  constants  of  less  than  or 
equal  to  M (installation  defined)  characters  defined  in  a DATA  or 
assignment  statement. 

The  matrix  is  printed  out  in  sets  of  N rows  by  10  columns.  When 
the  matrix  printouts  are  placed  beside  one  another,  the  entire  ma- 
trix is  represented. 

The  call  to  OUT  assumes  that  floating-point  numbers  are  to  be  print- 
ed out  in  E12.4  format.  If  the  user  wishes  to  print  out  fixed- 
point  numbers,  he  should  CALL  IOUT (K,N, NAME) , where  K is  an  array 
of  TYPE  INTEGER  and  is  to  be  printed  out  in  I format. 

NS0UT , INS0UT 

SUBROUTINE  NSOUT (C , NH , NV , NAMEH , NAMEV) 

SUBROUTINE  INSOUT (K , NH , NV , NAMEH , NAMEV) 

TYPE  REAL  C 

TYPE  INTEGER  NH , NV , K 

NAMEH  and  NAMEV  are  vectors  of  Hollerith  constants 

Subroutine  NSOUT  is  similar  to  subroutine  OUT,  except  that  NSOUT 
causes  a nonsquare  matrix,  with  appropriate  row  and  column  headings, 
to  be  printed  out.  The  form  of  the  CALL  statement  is  CALL  NSOUT (C, 
NH, NAMEH , NAMEV) , where  C is  a two-dimensional  array,  NH  is  the  num- 
ber of  rows  of  the  array  C,  and  NV  is  the  number  of  columns  of  C. 
NAMEH  is  the  name  of  a"  vector,  dimensioned  NH  in  the  calling  pro- 
grams, that  contains  the  names  of  the  row  headings.  NAMEV  is  the 
name  of  a vector,  dimensioned  NV  in  the  calling  program,  that  con- 
tains the  names  of  the  column  headings. 

Calling  the  NSOUT  subroutine  causes  the  matrix  C to  be  printed  out 
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in  sets  of  N rows  by  10  columns.  The  subroutine  differs  from  OUT 
in  that  it  allows  column  headings  to  differ  from  row  headings. 

The  call  to  NbOUT  assumes  that  floating ’-point  numbers  are  to  be 
printed  out  in  E12.4  format.  If  the  user  wishes  to  print  out  fixed- 
point  numbers,  he  should  CALL  INSOUT (K,NH,NAMEH,NAMEV) , where  K is 
an  integer  array  to  be  printed  out  in  I format. 

GRAPH 

SUBROUTINE  GRAPH (NAMEX , LNTHX , NAMEY , LNTHY , X , Y , N) 

TYPE  REAL  X Y 

TYPE  INTEGER  LNTHX, LNTHY, N 

NAMEX  and  NAMEY  are  Hollerith  constants 

GRAPH  produces  two-dimensional  graphs  or  plots  on  the  CalComp  plot- 
ter, requiring  two  one-dimensional  arrays  A and  B of  the  same  size, 
where  A = ai,  •••,  aR,  B = bi,  •••,  b , and  yielding  a plot  whose 
points  are  connected  by  straight  linesegments . When  the  user  de- 
sires to  print  out  a graph,  he  uses  the  following  statement:  CALL 

GRAPH(NAMEX, LNTHX, NAMEY, LNTHY, X, Y, N) , where  NAMEX  is  the  label  for 
the  X axis.  LNTHX  is  the  number  of  characters  in  the  title  NAMEX. 
Similarly,  NAMEY  is  the  label  for  the  Y axis  and  LNTHY  is  the  num- 
ber of  characters  in  it.  X and  Y are  the  names  of  one-dimensional 
arrays  (of  the  same  size)  to  be  plotted.  N is  the  total  number  of 
points  to  be  plotted,  plus  two.  That  is,  if  each  array  contains  p 
entries,  then  N would  be  p + 2. 

The  following  statement  must  appear  immediately  before  all  legal 
termination  point's  in  the  user's  program:  CALL  ENDPLT.  This  final- 

izes the  output  for  the  CalComp  plotter.  Note  that  no  parameters 
are  to  be  passed  within  the  call  to  NEDPLT. 

NOTE:  The  user  may  have  titles  of  a length  greater  than  M (instal- 
lation defined)  only  if  they  are  defined  as  Hollerith  characters  in 
the  calling  sequence  to  the  GRAPH  subroutine. 

PAGE 

SUBROUTINE  PAGE (NAME) 

NAME  is  a Hollerith  constant 

This  routine  is  called  to  produce  a page  ejection  in  the  printout  of 
a program.  It  will  inset  up  to  M (installation  defined)  characters, 
found  in  NAME,  into  a heading  that  includes  the  date  and  page  number. 
The  most  obvious  use  of  NAME  is  to  supply  the  name  of  the  subroutine 
calling  PAGE.  For  example,  CALL  PAGE (NAME).  The  routines  in  SPURT 
that  produce  page  ejections  (CLOCK,  STIX2,  etc.)  all  do  so  by  calling 
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C PAGE.  Thus,  if  a page  number  is  to  be  meaningful  to  the  user,  he 

g also  must  eject  pages  by  a call  to  PAGE. 

o Job  Deck  Structure 

O " “ ““  “ 

Job  Cards 

LIBRARY (SPURT 3 , SPURT6) 

LGO. 

7-8-9  (EOR  Card) 

Main-Problem  Card(s) 

PROGRAM (INPUT, OUTPUT, PUNCH, PLOT, TAPE5=INPUT,  1 TAPE6=OUTPUT , 
TAPE7=PUNCH,TAPE17=PLOT) 


END 

Subroutine  Card(s) 
SUBROUTINE  ACTI0N1 


END 


SUBROUTINE  ACTIONZ 


END 

7-8-9  (EOR  Card) 

Data  Cards 

6— 7— 8— 9 (EOI  Card) 

NOTE:  The  file  assignments  shown  on  the  Main-Program  header  card 

are  the  standard  SPURT  assignments. 
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SAMPLE  INPUT 
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000043 
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SUBROUTINE  EXAMPL1  ?PTS2  0 

SPTS2  10 

20 

$PTS*  30 

THIS  PROGRAM  IS  PART  OF  THE  NORTHWESTERN  UNIVERSITY  $PTS2  40 

$PT$2  50 

SPURT  SPTS2  60 

SPTS2  70 

A SIMULATION  PACKA0E  FOR  UNIVERSITY  RESEARCH  AND  TEACHING  SPTS2  BO 

....  $PTS2  90 



SPTS2110 

C0MM0N^QPl0TQ/unUSED<5) tIPLTSW  SPTS2120 

01 MENS I ON  T(l04)  $pT$2l3o 

type  real  neoexp  spt«214o 

DUMaTIMELP(O)  ...  ....  SpTS2l50 

CALL  STIXl  (T .20.0.0,0. 100. VALUE. 22HDEPTH  uF  WATER  IN  TANK. 22)  SPTS2160 

00  10  1*1 «300  SPTS21T0 

VALUEa20.0-NE6ExP(0,2)  SPTS2180 

CALL  STIX2  (T,20.0t0.0tl00tVALUE*22H0EPTH  OF  WATER  IN  TANK. 22)  $PT$2190 

CALL  STIX3  (T, 20. 0.0,0. 100. VaLUE*22H0EPTh  OF  WATER  IN  TANK. 22)  SPTS2200 

DUMaTIMELP(l)  $PT$22lO 

RETURN  SPTS2220 

END  SPTS2236 
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COST  ESTIMATE 

For  the  SPURT  TESGEN  package  listed  on  the  Sample  Input,  the  total 
running  time  was  91.59  seconds  for  the  central "processor  time  and 
46.597  seconds  for  the  peripheral-processor  time.  Chargeable  com- 
puter time  was  $14.16 

Charge  to  user  = computer  time  + postage  and  handling  + network 

overhead 

= $14.16  + $15.00  + network  overhead 
= $29.16  + network  overhead 
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DESCRIPTIVE  TITLE 
CALLING  NAME 


FORTRAN  Program  to  Assist  in  the  Process 
of  Political  Reapportionment 

T8  FSU  BELOW 


INSTALLATION  NAME 


AUTHOR ( S ) AND 
A F F I L I AT  I ON ( S ) 


LANGUAGE 


Computer  Center 

The  Florida  State  University 

William  Below,  Consultant 
Assembly  Committee  on  Elections  and 
Reapportionment 
California  Legislature 

CDC  FORTRAN  IV 


COMPUTER  CDC  6400-65K 


PROGRAM  AVAILABILITY  Decks  and  listings  presently  available 

CONTACT  Raymond  Soller,  Program  Librarian/EIN 
Techncial  Representative,  Computing 
Center,  Florida  State  University, 
Tallahassee,  Fla.  32306 
Tel.:  (904)  599-4770 

FUNCTIONAL  ABSTRACT 


BELOW  is  a program  to  assist  with  the  development  of  political 
reapportionment  plans  using  a set  of  procedures  representative 
of  the  methods  employed  by  legislatures  to  reapportion  them- 
selves. The  actual  algorithms  utilized  by  the  program  are 
modifications  of  the  computational  techniques  originally  out- 
lined by  Stuart  Nagel.1 


The  programmed  procedures  are  those  which  follow.  An  initial 
district  plan  is  determined  by  assigning  geographic  units  to 
districts.  This  initial  plan  is  fed  into  the  processor  along 
with  demographic  and  political  data  for  each  unit.  The  program 
then  tests  each  possible  move  of  a unit  from  one  district  to 
another  and  then  each  trade  of  units  between  adjacent  districts 
against  a set  of  criteria.  If  the  plan  is  approved  according 
to  the  criterion;  then  the  move  or  trade  is  made  permanent. 
Where  no  more  useful  moves  or  trades  can  be  made,  the  results 
are  printed  out  and  the  program  is  terminated. 
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The  criterion  used  by  the  program  is  expressed  as  a linear  com- 
bination of  three  quantities,  SVEA,  SVCA,  SVPA; 


where  SVEA,  SVCA,  and  SVPA  are  measures  of  population  equality, 
compactness,  and  conformance  to  political  goals,  and  WE  and  WC 
are  weighting  coefficients  for  the  purpose  of  establishing  the 
relative  importance  of  the  three  quantities.  CRIT,  the  criterion, 
is  recomputed  for  each  tentative  move  or  trade.  If  its  value 
is  less  than  its  previous  value,  the  move  or  trade  is  consummated. 

Population  Equality 

The  measure  of  population  equality  is  given  by 


where  NDA  is  the  number  of  districts  in  the  area,  PD  (J)  is  the 
population  of  district  J and  AVGPOP  (J)  is  the  ideal  population. 
SVEA  may  be  described  as  the  sum  of  the  squared  fractional 
deviations  from  the  ideal  population  for  all  districts  in  the 
area. 

Multiplication  of  the  fractional  deviation  by  100  is  not  signi- 
ficant to  the  operation  of  the  program;  it  simply  indicates  that 
the  deviation  is  output  as  a percentage.  The  use  of  the  frac- 
tional rather  than  the  absolute  deviation  is  significant  because 
it  makes  the  effect  of  WE,  (the  relative  importance  of  popula- 
tion equality),  independent  of  the  ideal  population.  Similar 
considerations  apply  to  the  decision  to  use  total  rather  than 
average  deviation  for  the  area.  If  average  deviation  were  used, 
then  the  proper  setting  of  WE  would  depend  on  the  number  of 
districts  in  the  area. 

The  opportunity  for  the  user  to  set  the  ideal  population-  for  each 
district  independently  may  at  first  seem  arbitrary.  In  practice, 
this  allows  the  program  to  be  used  on  areas  which  contain  portions 
of  districts  as  well  as  whole  districts. 

This  method  of  measuring  population  equality  does  not  differ 
markedly  from  methods  used  by  others  in  the  field.  One  obvious 
alternative,  namely,  use  of  the  sum  of  the  absolute  deviations, 
might  be  quite  acceptable  as  a measure  of  equality  to  a student 
government,  but  it  suffers  from  some  computational  disadvantages. 


CRIT  = WE  * SVEA  + WC  * SVCA  + SVPA 


NDA 


2 


SVEA  = l 
J=1 
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As  a population  unit  moves  from  one  district  to  another,  the 
absolute  deviation  changes  only  if  one  district  is  above,  while 
the  other  is  below  the  ideal  population.  The  formula  given  here 
for  SVEA  however,  has  the  convenient  property  that  when  two  dis- 
tricts are  both  above  or  below  the  ideal  population,  a unit 
moved  from  one  district  to  the  other  causes  a change  in  SVEA, 
proportional  to  the  difference  in  population  between  the  two 
districts. 

Compactness 

The  method  originally  tried  for  measuring  compactness  determines 
the  "population  moment"  around  the  population  center  of  the 
district.  This  method  is  attractive  because  it  tends  to  mini- 
mize travel  distance  within  the  district  and  keep  concentrations 
of  population  unbroken  by  district  lines. 

If  there  is  a large  number  of  units  per  district,  the  population 
moment  method,  unfortunately,  can  yield  districts  which  are 
numerically  compact,  yet  have  very  irregular  boundaries.  Since 
a legislature,  as  it  reapportions  itself,  prefers  to  avoid  even 
the  appearance  of  gerrymandering,  the  author  found  the  population 
moment  method  unsatisfactory  for  his  purposes. 

The  alternative  method,  now  in  use,  involves  estimation  of  the 
perimeter  of  each  district.  The  estimation  is  inherently  in- 
exact, but  tends  to  produce  district  lines  which  are  politically 
acceptable. 

The  program  counts  the  perimeter  elements  in  the  perimeter  of 
each  district.  A perimeter  element  is  that  portion  of  a unit 
perimeter  which  is  shared  with  one  other  unit.  Of  course,  these 
elements  vary  in  length,  but  the  program  assumes  each  to  have 
unit  length. 

One  of  the  attractive  features  of  the  perimeter  method  is  that 
it  dispenses  with  the  use  of  the  X and  Y coordinates  required 
for  the  population  moment  method.  What  may  be  unattractive  to 
some  users  is  that  the  perimeter  method  does  not  tend  to  improve 
or  even  affect  the  overall  shape  of  a district  unless  the 
initial  district  plan  deviates  widely  from  the  desired  charac- 
teristics , 

Thus,  if  the  program  is  given  a district  which  is  rectangular, 
and  which  is  much  longer  than  it  is  wide,  the  lines  will  be 
kept  straight,  but  there  will  be  little  or  no  tendency  for  that 
district  to  change  toward  a square  or  circular  shape.  This 
property  is  often  quite  convenient  in  the  legislative  environ- 
ment. 
continued 
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In  principle,  it  would  be  possible  to  measure  the  length  of  each 
perimeter  element,  include  the  data  in  the  information  fed  to 
the  .processor , and  work  with  a true  perimeter  measurement.  Mak- 
ing those  measurements,  however,  would  be  even  more  tedious  than 
preparing  the  X and  Y data,  and  may  not  necessarily  improve 
program  performance. 

Political  Considerations 

The  political  portion  of  the  criterion,  CRIT,  is  given  by 

2 


NDA 

SVPA  = Z WP  (J) 
J=1 


PAD  (J)  • 100  nrpnn  , T 

(J) despr  (j) 


where  WP  (J)  is  a political  weighting  coefficient  that  may  be  set 
independently  for  each  district,  PAD  (J)  and  PBD  (J)  are  political 
quantities  for  district  and  DESPR  (J)  is  the  desired  ratio  of 
PAD  (J)  to  PBD  (J)  expressed  as  a percentage. 

PAD  (J)  and  PDB  (J)  may  stand  for  different  things  in  different 
districts  according  to  a number  called  MODE  (J) . If  MODE  (J) 
were  set  to  1,  for  example,  and  DESPR  (J)  to  55,  then  the  pro- 
gram would  set  PAD  (J)  to  equal  registered  Democrats  and  PBD  (J) 
to  equal  total  registered  voters,  and  the  goal  for  Democratic 
registration  in  that  district  would  be  55%. 

In  the  same  manner,  setting  MODE  (J)  to  2 or  3 will  establish 
a goal  for  the  percentage  of  Negroes  or  persons  with  a Spanish 
surname  in  the  population.  The  information  for  each  unit  neces- 
sary to  establish  any  of  the  three  proportions  is  carried  in 
the  memory  of  the  processor.  Consequently,  there  are  no  restric- 
tions on  moving  a unit  between  districts  with  different  modes. 

Constraints  on  Moving  and  Trading 

By  the  inclusion  of  the  one  card  per  unit  in  the  data  deck,  the 
user  may  forbid  the  program  to  move  or  trade  any  number  of  units 
out  of  their  original  districts.  The  most  common  use  of  this 
feature  is  to  ensure  that  incumbents  are  left  in  their  own  dis- 
tricts. Another  use  is  to  protect  the  integrity  of  municipal 
areas . 


*V 
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Unit  Card 

One  Unit  Card  is  needed  for  each  Census  tract,  enumeration  dis- 
trict, precinct,  or  other  geographical  unit. 


Columns 

1 

Identification 

2-  7 

UNIT  CODE 

8-11 

PU 

12-15 

PI 

16-19 

P2 

20-23 

P3 

24-27 

P4 

38-79 

TOUCHLIST 

partioned 

into  7 

fields  of 

6 columns 

80 

NL 

Contents 

1:  Unit  Card  label 

alphanumeric  unit  code  used  to 
identify  a unique  geographic  unit. 

population  count  within  the  unit 

population  characteristic  one  , 

population  characteristic  two 

population  characteristic  three 

population  characteristic  four 

In  a single  pass  of  the  program 
the  selected  data  that  is  tabu- 
lated into  district  totals  (PI/ 

P2 , P3/ POPULATION,  P*/ POPULATION) 
is  determined  by  the  value  of 
MODE 

listing  of  all  unit  codes  which 
are  adjacent  to  the  unit  identi- 
fied in  Cols.  2—7. 


number  of  neighbors  entered  into 
TOUCHLIST  field 


The  TOUCHLIST  is  used  for  establishing  and  maintaining  contiguity, 
so  all  rules  and  assumptions  concerning  contiguity  should  be  con- 
sidered when  compiling  the  TOUCHLIST.  The  TOUCHLIST  is  also 
used  to  measure  compactness.  The  computations  are  more  precise 
if  reciprocity  is  observed.  Reciprocity  implies  that  if  Unit 
A is  a member  of  the  TOUCHLIST  for  Unit  B,  then  Unit  B is  also 
a member  of  the  TOUCHLIST  for  Unit  A. 

TOUCHLIST  Continuation  Card 

If  there  are  more  than  seven  neighbors  in  a unit’s  TOUCHLIST 
the  remaining  neighbors  may  be  inserted  on  a Continuation  Card. 

A unit  may  have  as  many  Continuation  Cards  as  needed. 
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Columns 

Identification 

Contents 

1 

2:  Unit  Continuation  Card  label 

38-79 

TOUCHLIST 

listing  of  unit  code  neighbors 
continued  from  previous  card 

80 

NL 

number  of  neighbors  entered  into 
the  TOUCHLIST  field 

The  total  number  of  entries  for  the  complete  TOUCHLIST  must  not 
exceed  8500. 


"Eight"  Card 

This  card  signals  the  end  of  the  initial  district  data. 

Columns  Identification  Contents 

1 8:  "Eight"  Card  label 

Status  Card 

A Status  Card  is  necessary  if  the  possible  moves  or  trades  of  a 
unit  out  of  its'district  are  to  be  restricted.  One  card  is 
required  required  for  each  such  specified  unit,  and  must  follow 
an  "Eight"  Card. 


Columns 

1 

2-  7 
11 


Identification  Contents 

4:  Status  Card  label 

UNIT  CODE  alphanumeric  unit  code  used  to 

identify  a unique  geographic  unit. 

1:  flag  which  restricts  unit 

movements 


"Nine"  Card 

This  card  initiates  the  district  processing,  and  must  follow  the 
status  cards  if  present  or  an  "Eight"  Card. 

Columns  Identification  Contents 

1 9:  "Nine"  Card  Label 


Parameter  Update  Card 

An  update  pass  is  possible  by  changing  the  label  field  (Col.  1) 
to  a 5 and  by  adjusting  the  proper  parameters.  All  entries 
must  be  present  even  if  they  repeat  the  items  on  the  Parameter 
Card.  If  it  is  desired  to  end  the  restrictions  on  a unit,  then 
include  a Status  Card  with  a zero  in  Col.  11. 
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Any  number  of  reruns  can  be  made,  but  each  successive  run  will 
continually  distort  its  relation  to  the  initial  district  plan. 

Sense  Switches 

Sense  switches  can  be  set  from  the  console  by  the  machine  oper- 
ator or  by  a SWITCH  CARD  in  the  set  of  system  control  cards 
accompanying  the  job. 


SWITCH,  n. 

where  n is  a switch  from  1 to  6,  which  should  be  set  on. 

sense  switch  2 on  - suppress  most  printer  output. 

sense  switch  3 on  - (by  operator  intervention  only)  Terminates 

program  in  orderly  manner. 

sense  switch  5 on  - suppress  trading  mode  of  operation  which 

normally  begins  when  no  more  moves  can  be 
made 


Output 

The  printed  output  of  the  program  consists  of  a one  page  report 
for  each  district  and  an  area  summary  for  the  initial  plan,  for 
the  final  plan,  and  for  each  successive  rerun. 

Each  district  report  includes  a complete  list  of  the  units  in 
the  district,  a partial  list  showing  only  units  on  the  edge  of 
the  district  (for  map  drawing),  and  a numerical  description  of 
the  district.  The  quantities  "A"  and  "B"  correspond  to  two  of 
the  quantities  PI,  P2,  P3,  or  P4  according  to  the  mode  setting. 

One  line  is  printed  summarizing  the  results  of  each  major  pro- 
gram loop.  These  lines  appear  between  the  initial  and  final 
district  report  pages.  The  numbers  under  NTM  and  NTT  indicate 
the  number  of  proposed  moves  and  trades  in  each  loop  which 
satisfy  the  contiguity  requirements  and  hence  the  number  of 
times  the  program  sections  which  tentatively  recompute  the 
criterion  function  are  entered.  These  loop  summaries  are  also 
printed  on-line  unless  sense  switch  2 is  down. 

Error  Message 

An  error  condition  caused  by  improper  data  card  punching  results 
in  an  error  message  printed  both  off-line  and  on-line  followed 
by  exit.  The  message  is  head  by  "DATA  ERROR"  and  consists  of 
the  following  items. 
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Item  Contents 


IRD  (1) 

IRD  (2) 

I 

J 

K 

M 

LPTYP 

JRET 


Col.  1 of  last  card  read 
Cols.  2-7  of  last  card  read 
Internal  unit  counter 
Internal  district  counter 
Internal  TOUCHLIST  counter 
See  program  listing 
See  program  listing 
See  program  listing 


"Not  in  Area"  Message 

Each  TOUCHLIST  entry  which  does  not  have  a corresponding  Unit 
Card  is  listed  under  the  heading  "ON  TOUCHLIST,  NOT  IN  AREA." 
Two  hundred  such  entries  can  be  accomodated  by  the  program. 

The  presence  of  unmatched  TOUCHLIST  entries  does  not  constitute 
an  error  condition  and  is  common  when  a subset  of  the  Unit 
Cards  for  an  area  is  used  for  a program  run. 


"Not  Contiguous"  Message 

A check  for  contiguity  is  made  on  the  initial  district  plan.  If 
any  initial  district  is  not  contiguous  a message  of  the  form 
"DISTRICT  J NOT  CONTIGUOUS"  is  printed.  The  program  does  not 
stop  since  this  condition  is  not  necessarily  disastrous  to  the 
program  run.  The  operator  may,  however,  be  instructed  to  term- 
inate execution  when  this  message  appears  on-line. 
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40 

44 

36 

34 

23 

12947 

1 

*6 

4001645  9041111 

1 

-0 

-0 

15 

43~ 

' 37“ 

4 

1 

7* 

201  706  7021131 

1 

-0 

-0 

39 

40 

35 

1294 

4 

1 

39 

047’0 0417531132 

1 

-n 

■-TT 

nr 

40 

4l 

~TV0 

— rei — 142 

* 1*947 

1 

40 

55Q’371 11461133 

1 

-0 

-0 

39 

41 

44 

35 

36 

5 

1 

41151*25^111231174 

" I ‘ " 

-tt 

-6 

39 

139 

r?o 

44 

40 

¥ 

1 

42 

5421657  7281151 

1 

-0 

-0 

36 

43 

45 

46 

4 

1 

4*? 

705100710101152 

1 

-0 

-0 

* ’ JK 

“IT 

45 

nr 

4 

1 

44 

1771579  5701153 

1 

-0 

-0 

40 

41 

125 

45 

43 

35 

6 

1 

4*5 

6631676  5681154 

1 

-0 

-0 

44 

“1T4 

1W- 

~T2? 

•~Ttr~ 

120 

487 

2 

-0  -0  -0  -0 

-0 

-0 

-0 

42 

43 

2 

1 

1149  16P  -n  -059°0 

16 

-a 

-0 

1 147 

1150 

2 

1 

1150  1?  -0  -05091 

16 

-0 

-0 

1 149 

1147 

2 

r 

17  1004176  1 

1 

-0 

-0 

♦ 

1 

137,14111’4117?ft5700 

17 

-n 

-0 

1 063 

i062 

1073 

1079 

1060 

1061 

10647 

1 

1050  605118?  5435708 

17 

-0 

-0 

1072 

1079 

1064 

1061 

4 

1 

1081 1144868416585700 

* 17 

-9 

-0 

107? 

1080 

1083“ 

1082 

1064 

5 

1 

100’  547175611835710 

17 

-0 

1061 

1083 

1109 

1110 

1069 

5 

1 

1 05111 OQ?407t 40757 11 

17 

-0 

-0 

ToTi 

1064 

1108 

1109 

~ 1082 

5 

1 

1100  700  0 05737 

17 

-0 

-0 

1062 

1063 

1106 

1113 

1110 

5 

1 

1110  687  0 05718 

17 

-9 

-n 

10  6* 

1109 

1112 

1111 

1069 

5 

1 

1111  16  0 05730 

17 

-n 

-a 

1110 

1112 

1146 

1117 

1071 

1069 

6 

1 m 

*,  -p  -n  -o  -0  -0  ~ '-If ~ =T 

9 -0  -n  -o  -0  -0  -1  -0 
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000  0072 


t 


1 


EDUCATIONAL  INFORMATION  NETWORK  EDUCOM 

000  0072 


SAMPLE  OUTPUT 


DISTRlrT 

INITIAL 

1 

t • A* 

CONCESSIONAL 

reTFportIonment.  - 

BELOW 

UNITS 

— 



7 

— 



--  ■ 

t 

2 

3 

4 

5 

6 

7 

6 

9 

35 

36 

?8 

79 

40 

41 

42 

43 

44 

45 

75 

9? 

9? 

94 

95 

96 

97 

99 

100 

loi 

117 

119 

125 

126 

133 

134 

139 

140 

141 

142 

163 

144 

145 

146 

148 

149 

164 

165 

166 

169 

170 

171 

17? 

173 

174 

175 

176 

178 

179 

662 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

676 

126* 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

127* 

1279 

1280 

1281 

1282 

1263 

1264 

1265 

"1296 

12*7 

128* 

1289 

1290 

1291 

1292 

1293 

1294 

1297 

UNtTS  ON  eofif  OF  OTStP'iCT 


1 3 

5 7 

8 

35 

36  42 

45 

75 

I 

9?  93 

94  99 

96 

97 

99  100 

lOi 

117 

119  125 

1?6  133 

134 

143 

144  146 

146 

169 

i 

166  169 

176  17? 

178 

179 

55?  555 

555" 

668 

669  671 

673  674 

675 

676 

1299  1290 

1294 

1297 

j 

* 

i 

< 

j 

P0oUL&TIf)N 

VARIATION 

PCT 

VARIATION 

SQRO  VARIATION 

WEIGHTED 

i 

} 

50625.0000 

6865.0000 

15.6878 

246.1004 

246.1094 

i 

i 

ft 

9 

PROPORTION 

SQRO  VARIATION 

MEIGHTEO 

{ ) 

i 

j 

t 

i 

123162,0000 

69169.0000 

140.6716 

6507*9016 

65.0790 

j 

MO  OF  UNIT? 

HP 

OESPR 

COMPACTNESS 

WEIGHTED 

99.0000  .moo  100.0000  99.0000 392.0000 


TOTAL  CONTRIBUTION  TO  CRITERION  = 703.1974 


continued 
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1 

. 


1 o 

ERIC 


EDUCOM 


EDUCATIONAL  INFORMATION  NETWORK  ! 


000  0072 


CNI 

r-s 

o 

o 


o 

o 

o 


DISTRICT 

INITIAL 


L.a.  CONCESSIONAL  - BEL  OH 


UNITS 


10 

IT" 

T? 

— T3 

— r4 

15~ 

15“ 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

~~TS 

—34 

37 

46 

47 

~4¥  ‘ 

“49 

SO 

51 

5? 

S3 

54 

55 

56 

57 

58 

59 

*n 

61 

62  

6T“ 

64 

65 

66 

67“ 

CT  ' 

69 

70 

71 

72 

73 

74 

76 

77 

78 

79 

80 

fti 

~ ■ vr 

B3 

14 

85 

86 

87 

88 

89 

99 

SI 

102 

103 

104 

105 

106 

107 

108 

109 

no 

in 

n? 

* 113 

IT4 

i re- 

— nr- 

Y1S 

-«] tr 

121 

12? 

123 

124 

127 

128 

129 

130 

131 

' 132  

135 

136 

677 

67ft 

vnr 

UNITS  ON 

PD Cir.  OF 

DISTRICT 







10 

11 

16 

19 

2 IT 

21 

?? 

” 23 

34 

37 

40 

65 

74 

76 

78 

83 

05 

86 

87 

89 

r-  Jfc  A' 

Oft 

~*9ft'  ~ 

^TT3 

115 

lib 

118 

__  j-ptq 

~I?T 

122 

123 

124 

132 

135 

136 

( 


POPULATION  VARIATION PCI  VARIATION SQRt’  VARIATION  WEIGHTED 

51716. 1100  7956.0000  18. 1810 330.5483  330.5483 

a ' B"  PITOPURTTOTr  — SQRO  VARIATION  WEIGHTEO 

90056.3000 "58748.0000  130.99H9  96u.655i  Bi'6865 

NO  OF  UNITS  HP  DESPR COMPACTNESS  WEIGHTEO 

104.3000*  .0100 100.0000  62.0000 248.0000 


TOTAL  CONTRIBUTION  TO  CRITERION  s 588._1548 
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too 

- : jf 


000  0072 


EDUCATIONAL  INFORMATION  NETWORK 


EDUCOM 


000  0072 


OISTRTCT  IT  ' L.a;  CONCESSIONAL  REAPPORTIONMENT  - BELOW  ° 

INITIAL  O 

" ; -•  o 

■ o 

UNITS  O 

' ~ ^ 

M 

hit?  nan  ion  too  2“ iooT  ini  iiio  nit  


UNITS  ON  FDCE  OF  DISTRICT 


iot1’  inoT  ion  in  A? ~iooT ins  ilTo  TTiT 


POPULATION 

VARIATION 

PCT  VAPIftTION 

SORO  VARIATION 

WEIGHTED 

6699.1000 

-37069.0000 

— • • 

-64* 

70  36 

7174 

.1964 

7174.1904 

A 

9 

PROPORTION 

SQRO  VARIATION 

HEIGHTEO 

tmn.iorn 

6902.0000 

— — 

167, 

0510 

— 

4496 

!l1066_ 

— 

— 

44.9611 

NO  or  UNITS 

wp 

oespr 

COMPACTNESS 

WEIGHTED 

*• nnoo 

.0100 

too. 

0000 

, 20 

• 0000 

00.0000 

TOTAL  contribution  to 

CRTTFRTON  e 

7299.1595 

1 

? 7 

4 

9 

6 

7 

6 

9 

35 

36 

36 

39 

40 

41 

42 

43 

44 

45 

75 

9? 

Q7 

95 

96 

97 

99 

100 

101 

117 

119 

125 

126 

133 

134 

139 

140 

141 

142 

143 

144 

14*5  146 

1 4 ft 

149 

164 

165 

166 

169 

170 

171 

172 

173 

174 

175 

176 

178 

179 

662 

665 

(S6* 

6*7  66B 

669 

673 

671 

~ 67> 

&rr 

674“ 

675 

676. 

1266 

1269 

1270 

1271 

~ 127*2 

1273 

1274 

1275 

1276 

1?77 

1?7*  1 ’70 

12*0 

l?6l 

1 ?6? 

1263 

1264 

1265 

1266 

1287 

1286 

1269 

1290 

1291 

129? 

1293 

1294 

1297 

10 

9 A7 

0^4 

996 

9Q7 

996 

999 

loon 

1001 

1002 

1024 

1025 

1026 

1027 

1026 

1029 

1030 

1031 

1032 

1033 

10*4 

1 n 1 03* 

1037 

1090 

1091 

1052 

1053 

1054 

1055 

1056 

1057 

1056 

1059 

1060 

1061 

iu63 

1062 

1073 

1074 

1 0 75 

1 n?6  1 n 7 7 

1 07^ 

1079 

1064 

1065 

1066 

1067 

1066 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1096 

1 099 

1 1 ni  itoi 

tin? 

1103 

1194 

1105 

1106 

1107 

1106 

1112 

1113 

1114 

1115 

1116 

1117 

1116 

1119 

1120 

1121 

It?? 

1 1 ?3  1 1 ?4 

tips 

1126 

1127 

1123 

1179 

~r nr 

"TTXI 

1132 

TT31 

11T4" 

nw 

1136 

“ 1137 

1136 

1139 

1140 

1141 

114? 

1147  1144 

114*5 

1146 

1147 

1146 

1149 

1150 

1072 

10B0 

1001 

1082 

1063 

1109 

1110 

1111 

CHARACTERISTICS  OF  the  A»EA  U.A.  CONCESSIONAL  RE APPORTIONMENT  - BELOW 


INITIAL 


TOT  VAR  WflfiMT VAR  X WEIGHT 


rQMALTIY  ?0TR?iF>6467  1.00000  20392.06467 


POLITICAL 

1073.13172 

COMPACTNESS 

121 9,  ) 000  0 * 

4.00000 

4070. 00000 

CRITERION 


26741 . 79639 


continued 


EDUCOM 


EDUCATIONAL  INFORMATION  NETWORK 


000  0072 


)OP 

movfs 

TRACES 

COMPACTNESS 

poufitm 

""RTITTICAL  “ ■ ‘ 

CR2TERION 

NTH 

NTT 

0 

0 

n 

i?i9, nonon 

20  ’’I? . 66467 

1073.13172 

26341.79639 

)OP 

MOVFS 

T9A0FS 

COMPACTNESS 

EQUALITY 

POLITICAL 

CRITERION 

NTH 

NTT 

1 

t«5fl 

0 

i?89.noooo 

9643.07913 

948.05746 

15747,13661 

606 

0 

0 

I2n 

0 

TT?9  • POO  0 fl 

5153.01916 

930*84078 

11399,85994 

“ 566 

0 

ms 

n 

1779.00000 

2171,37392 

917.28298 

8611.65690 

556 

0 

4 

97 

n 

nBs.nfnro'fr 

”877.30062  ‘ 

■WTriDW  ~ 

“ 7274.41029 

565 

0 

S 

SB 

0 

1339. 00000 

253. 873 03 

905.14882 

6514.98265 

555 

0 

£ 

45 

i 

1263.00005 

~ r?r.i73?4X" 

97Tr.T957X  " 

6173, 26920 

555 

0 

7 

27 

0 

1745.00000 

95.37615 

919,89828 

5995.27443 

553 

0 

B 

0 

17IT.  flOQtjn 

60 . OW5U1 

916. 8947  8 

— 5B44.9297T 

0 

q 

n 

0 

1?11. 00100 

59.23051 

909.21067 

5812.44119 

537 

0 

m 

17 

0 

no?,  oo'oitd 

■■  - 

9X7,32627 

'*733.511160 

534 

0 

ii 

17 

n 

ii6°.noooo 

69.77466 

920.85634 

5666.63100 

533 

0 

i? 

15 

0 

1155,00000 

66~. wsvr~ 

‘925761987 

'5616.065X3 

533 

0 

n 

15 

0 

1143.00000 

51.90356 

923.19476 

5547.09832 

522 

0 

14 

5 

0 

1139. oowo 

^♦5  .“65531 

922.50439 

5*?4.T*97l 

525 

0 

m 

17 

n 

1123.10000 

49.64360  * 

922.35721 

5464.00101 

514 

0 

i* 

7 

0 

1123,00000 

•-*373177?" 

971.134*09 

5456.65184 

516 

0 

17 

4 

0 

1121.00000 

42.50554 

919.94415 

5446.44969 

514 

0 

IB 

5 

0 

1117.00000 

' 42.62931 

91 9. 543  97 

5414.37328 

514 

0 

19 

n 

p 

1113.00000 

42.82931 

919.54397 

5414.37328 

513 

0 

2n 

5 

15 

■io<n.oirnoo 

5?  ,48909 

915,98888 

””*7X2747  7 4'8 

519 

2496 

21 

1 B 

Q 

1059.00000 

42.18904 

917.03800 

5195.22704 

514 

2367 

22 

12 

1? 

1023.00000 

75710415  ” 

942.11087 

5069.21502 

458 

2217 

27 

n 

Q 

1011.00000 

71.63798 

927.43102 

4993.06500 

465 

2150 

24 

Q 

5 

999.  00(300 

~ 24”.  3*57  <T" 

92T.7DT9Y  “ 

“4941.05720 

460 

2112 

2K 

12 

7 

9B7. 00000 

■>2. 17103 

911.84154 

4876.01257 

479 

2073 

f 
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EDUCATIONAL  INFORMATION  NETWORK 


EDUCOM 


000  0072 


DISTRICT  1 T.A.  CONCESSIONAL  REAPPORTIONMENT  - BELOW 

FINAL  , 


UNITS 

■ 

— 

— 

R 

6 

7 

....  ^ 

9 

T5 

92 

93 

94 

95 

96 

07 

qo 

too 

101 

171 

172 

173 

174 

175 

17* 

17* 

170 

662 

665 

666 

667 

666 

669 

670 

*71 

*72 

*7? 

674 

675 

676 

1266 

1269 

1270 

1271 

1*72 

1’73 

1274 

1275 

1276 

1277 

1276 

1279 

1260 

1261 

12*3 

12  94 

126* 

1286 

1267 

1266 

1269 

1290 

1291 

toqp 

1207' 

1297 

in 

11 

12 

16 

16 

19 

20 

21 

?2 

24 

2* 

65 

71 

74 

76 

77 

76 

7n 

*5 

*6 

67 

66 

64 

90 

96 

677 

676 

177 

*56 

6*o 

660 

661 

663_  _ 

664 

■ 

UNITS 

ON  FOr.E  OF 

'DISTRICT 



■ ■ ■ • — - — 

s 

6 

Q 

9? 

93 

176 

179 

673 

674 

675 

t?6r. 

1290 

1201 

1292 

'1297  

12 

16 

22 

24 

65 

7** 

77 

79 

*5 

90 

676 

177 

656 

659. 

664 

PPniJ  L ® T t ON 

VARIATION 

PCT  V ft  OUT  ION 

SQR0 

variation 

WEIGHTE0 

44i*0.innn 

*99 •0000 

1.3696 

1.8737 

1.6737 

A 

R 

’PROPORTION 

S0RD 

VARIATION 

WEIGHTE0 

o 

o 

o 


o 

o 

ho 


96M0S.1Q0Q 

59135.0000 

t&7,VttF4 

4544.1301 

45.4413 

NO  OF  UMTTS 

WP 

oesPR 

COMPACTNESS 

WEIGHTE0 

97.1000 

*0100 

100.0000  

93.0000 

-•  * 

212.0000 

TOm  CONTRIBUTION  TO  CRITERION  « 259.3150 


continued. 


16 


r-or: 

7> 


7/70 


EDUCOM 


.EDUCATIONAL  INFORMATION  NETWORK 


f 


CM 

rv. 

o 

o 


un  to  un  to  © © © 
M (SI 

—i 


000  0072 


fO  it  0 d «W 

ro  k <r  m 4 


rl  rl  d d rl 


o 

o 

o 


3 

o 


LU 

03 


2 

LU 

X 

2 

o 


O' 

o 

a 

a 

<L 

UJ 

a 

-j 


O'"* 

£/ 

Uui 

L? 

2 

C 

L> 


( 


O -J 
d-  d 

</3  Z, 


2 

=3 


• KtO  03  4 N 
to  u>  ® 


<4 


iS  d d UV  to  to 
4 N vO  C O'  d 


[to  o o 4 4 UN 
4 S aD  flO  CT  «H 
!©  o o o,o  d 


lO  vt  K us  c «f 
4 to  UN  N-  CT  C. 
•O  O O © Od 


(T  US  (Vi  4 0 N‘d 
f*  ^ US  S K Off 
© © © C O M O 


4 n w 

s a.  o 
c ©CBM 


M S IT>  !0J 
id  4 UN  to  00  OiS- 


O 

m 

Or 

d- 

t" 

M 

O 


L' 

e i 
c- 

UJ 


o 

V) 


2 

=): 


1 

un  cr  O'  O'lfO  4 

O 

1 

s.  un; 

4 (D  UN  K 4 d 

O © O O1©  vi 

■H 

vi 

i 1 

i 

to  to’ 

© Vi: 

vi  -Hlr4  vi'w-i  vi 

! ! 

. | 

rH 

i 

i 

! 

rH  Hi 

1 

1 i 

4 or  icr  © !m  to 

O' 

i 

i 

i 

i 

i 

4 4j 

4 <DiUN  S !<T  rH 

© 

f 

© ©;©  ©!©  vi 

d 

i 

C3  rH  | 

rH  vi  Ud  vi ' vi  vi 

i 

i 

i 

rH  *d  1 

! 

! 

1 

d K . 4 K ' H M ! 

1 

1 

'to  | 

1 i 

i 1 

1 

I 

4 \D 

4 U?iUN  s O'  d j©  | 

O O O B © viiO 
wi  rH;rH  | vi  vH  «d  1 

1 ! 

4 O'1 
o oi 

vi  rHl 

to  UN 

UN  M 


4 4 
UN  H 


to  *0, 
UN  © 


i 


vi  4 
4 O' 
rs  o 
!m  «h| 


|C  CP-- 
ito  «c 


jaC  UN  vi 

.ro  s vi 
'©  © 


to  4 N 
M Sd 
e o'm 

vi  vH|M 


UN  M M UN  K O'  O' 
414  s£>  S O'  W UN 
Id  \6  M M 


Vi  O'  4 4«  to 
4 K N O'  M UN 
ddMN 


.Q 

K 

to 

1 

Oj 

1 to 

i *"*■ 

o 

LU 

\D 

UJ 

M 

(UJ 

it- 

4 

i ►“ 

to 

iH 

?X 

. • 

! x 

i ♦, 

• X 

jO 

1 

U> 

Mi 

10 

|UJ 

* 

» Hi 

i mi 

1 4j 
1 : 

IM 

UJ 

2 

S- 

'ro 

to 

’4 


to  i©  m to  ro  s s- 

4(4  N S 0',NUN 
IddMN 


to! 

*1 


(0 

to 

HU 

IS 

< 

a 


a 

! a 

O 

d diM  (SI! 

a 

! ° 

a 

'vi  HI 

1 

to 

to 

1 

1 

1 1 

1 ; 

j 

sD 

O'  M 

(D  S- 

H H 

to 

vi  N. 

S 

M UN 

vi  vi 

to  %VI 

tH 

z 

i 

UN 

S o 

UN  U> 

o © 

o 

o 

2 

M 

to 

to 

d S 

S 00 

M UN 

♦d 

O 

UN 

to 

UN 

«H  M 

U>  CNJ 

M 

« 

M 

UN 

or 

to 

UN 

M 

< 

U) 

M 

O 

a 

o 

m 

M 

• 

Of 

0 

to 

• 

K 

a 

l 

O 

UN 

UJ 

• O' 

vi  O' 

4 UN 

O'  a 

< i 

a 

to 

o 

o 

to 

to  (D 

S-  to 

-H  4 

> 

c 

rW 

d d 

to  M 

on 

M 

rH 

M 

a 

1 

O 1 

! 

1 

f 

0. 

1 

1 

to 

o (D  tO  4 'to  to 

j 

1 

1 

o nD  iS*  ® : 

-H  Vi]\£>  M 

|H  4 

1 

f 

1 

1 

1 1 

III 

1 K 

! i 

O'  U'  Im  m Is  k 

1 

i 

O'  nD  N rid4 

I 

2 

d:0  (Si 

2 

o 

©1 

0 ! 

o 

o 

!© 

toj 

O 1 

M 

| 

i 

i 

M | 

® 

o' 

vi 

or 

1 

to 

t 

o!  1 

i0- 

[to 

UJ  D 

S4d(Sj00 

! 

• 

cr 

• 1 

>3 

♦ : 1 

[M 

O'  D S-  to 

vi  4 

M 1 

ICC 

UN 

M 

d!(DM; 

^ 1 

O' 

M 

i 

lor 

1 

! H| 

< 

M 1 

i 

d 

j 

E 

i 

> 1 

It 

M; 

! ! 

1 1 

1 

4, 

i 

to  UN 

(0  O'  :C  d iUS  S> 

i 

, ; 

K 

O'  4 K to  M ro 

j 

<H  ;D  Mi 

I 

2 

M ’ 

i i i 

; -o 

1 

i i 

j i 

M 

! 

: 

M 4 

u.  to  .O'  O 4 4 

l 

i j 

! s 

i 

D 

a 4 U)  or 

M tO 

i 

X 

vi  isD  M ; 

: 1 

i 

♦ 

M 

M ! 

; 1 

i 

ir 

1 

0' 

l 

«2  1 

to 

ot  i 

M 

to  I 

M 

1 

to  : 

o 

to  i 

M 

to  i 

2 *0 

.♦  0'<C  O'  ito  fr 

o 

C1 

2 

© ! 

P • 

O'  4 AD  S Vi  p- 

© 

to, 

D 

to  1 

J 

d 0 (SJi 

• \ 

« 

• 1 • 

• I 

d i 

i-J  AJ  , 

to 

!U. 

« 

-u 

| 

! 

X l 

to 

M > 1 

O 

to 

«? 

i I 

0 ;4 

it;  i 

i 

M Mi 

K UN  :S»  toiM  M 

o (to  ; 

c 

Q 

1 

O 

O'  4 inD  K .vi  p-i 

a 1 

4 

to  i 

i* 

d 0 Ml 

! ! 

I 

! 1 

M . (< 

to  kI 

V*  vi 

i 

i 

O'  4 I'D  S 

vi  to 

1 

I 

i 

1 

ft 

d|vC  M 

! 1 

1 

l 

1 i 

1 

1 

1 

vi  j 

O'  toM  Mto  to 
to  S.  S»  0'IMUS 
d,(SI  M 


4 It'  d M ’UN  UN 
to  S S O'  M US 

vi  MlM  M 1 


t0  4teo,4  4 
to  s.  s.  O'  M UN 
vH  M jM  M, 


D to|0'  O'lfO  to 
M KinD  c'MUs 
■H  vi  |M  Ml 


US  Wlco  «;M  N 


MWNOo 
fO  K <P  CSI  4 

O O O vi  vi 


vi  M to  O'  O' 

to  to  O'  M to 


o to  US  tt  to  . 

to  to  ON  *4  to  . 

O O a d d ' 

M d M « 


PH4NM 
M 04  dfO 


0OtO004 
m u>  (O'  d ro  © 

OOpddd 


S*  O'  IM  UN  ifs  tO 
M UN  4 d t0  tt 


tH  tH  pH  d d d 

i 

to  to  M 4 4 M 
M UN  [O'  d tO  C 
O O p dd  O 
d d H d d d 


UN  S. 
KVJ  UN 

© o 


4 (D 
Mj  UN 
(O  © 


|M  UN 
I©  UN 
lO  © 


I?  4 r-  — 

to  us  r d h l'' 

io  © D dr  d 
id  d d d|iW  H 


1©  to 
to  un 
to  tD 


cr  m 

O'  U' 

a © 


> to  fO  . 

' d r)  I 


O'  M AJ  © 

« vi  to  © 

O did  O 
4 M rW 

} 

P ® !d  M 
® © jro  s. 
© d M © 
d d jd  d 

S s to  © 


nd  id  kr  o' 
to  © Im  4 

D did  d 
rtddd 

LD  UN  |«?  fC 
D M 4 


4 4 K S 
r © m 4 


O'  UN 

O'  D |D  d d d 

I 

S-  © lo'  *0  to  to 
0 UN  K O M 4 
4 O p d d d 


tf  Mr  munus 

a to  K © m 4 

O'  O © vi  rH 

d f»d  d <H  M 

f 

IT  to  fw  «d  4 4 

O to  s o «NJ  4 

trrir  ddd 


4 IT  L0  © K K 
O'  to  K © <vj  4 
O'  O b d d d 
d d dd  d 


b 4 UN  O'  M M 

to  to  K O'  A1  4 

fO  o b o ,d  d 

j tH  Td 


( 


17 

■^6 


continued 


CM 


O 

ERIC 


7/70 


O 


000  0072 


EDUCATIONAL  INFORMATION  NETWORK 


EDUCOM 


000  0072 


ChARACTFRISTIOc  OP  THE  ARFA  lVAY  CONCESSIONAL  RE APPORT IONHENT  - BELOW 


FINAL 


TOT  VAR  HFIGHT VAR  X WEIGHT 


EOUALTI Y 3?. 17103  l.OOOJM  72. 17103 


POLITICAL  Q11.04154  4 


CO»PACTNrSS  9fl?.0m0  0 4. 00000  3038.00000 


CRITERION  = 4B76. 1t?*7  

* -o  -n  -o  -o  -o  -a  -n  * 

DATA  ERROR  " 


1RR7  17  1 M 1 2 
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COST  ESTIMATE 

Computer  charges  are  calculated  at  the  rate  of  $150 . /computational 
unit  (hour).  The  sample  run  consumed  7 minutes  of  computer  time, 
which  should  be  typical  for  large  jobs  of  similar  complexity. 

Therefore,  for  the  sample  run  shown  above, 

Approximate  charge  to  user  = computer  time  + postage,  handling, 

and  consulting  + network  overhead 

= $17.50  + $7.50  + network  overhead 

= $25.00  + network  overhead 
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DESCRIPTIVE  TITLE 
CALLING  NAME 


Equipercent ile  Equating  Program 
SCORMACH 


INSTALLATION  NAME 


Wharton  Computational  Services 
University  of  Pennsylvania 


AUTHOR ( S ) AND 
AFFI L I AT  ION ( S ) 


Daniel  Ashler,  Director 


Wharton  Computational  Services 
University  of  Pennsylvania 


LANGUAGE 


FORTRAN  IV 


COMPUTER 


IBM  System  360/75 


PROGRAM  AVAILABILITY 


Proprietary;  usage  permitted  but  program 
deck  or  listing  not  available 


CONTACT 


Daniel  Ashler,  Wharton  Computational 
Services,  University  of  Pennsylvania, 
Philadelphia,  Pa.  19104 
Tel:  (215)  594-6422 


FUNCTIONAL  ABSTRACT 


SCORMACH  uses  the  equipercentile  equating  method  to  obtain  "com- 
parable" scores  (having  identical  means,  standard  deviations, 
and  distributions)  for  several  forms  of  a given  test  or  for 
different  tests.  A given  score  on  one  test  is  considered  com- 
parable to  a given  score  on  another  if,  in  the  two  (not  neces- 
sarily distinct)  groups  of  examinees,  the  same  proportions 
attain  less  than  the  respective  given  scores — i.e.,  if  a score 
on  one  test  has  the  same  percentile  rank  as  its  comparable 
score  on  the  other  test. 


The  principal  output  is  a table  for  each  pair  of  tests  by  which, 
given  a regressed  equipercentile  score  on  either  test,  one  can 
determine  the  corresponding  regressed  equipercentile  score  on 
the  other.  If  desired,  the  same  information  may  also  be  had  in 
the  form  of  a graph  produced  on  a CalComp  plotter.  Other  tables 
and  graphs  allow  comparisons  of  raw  scores  with  raw  scores,  raw 
scores  with  regressed  scores,  etc. 


The  scores  that  are  of  interest  here  are  the  examinees'  "true 


scores"  on  each  respective  test.  Although  true  scores  cannot 


be  observed  directly,  the  characteristics  of  the  distribution 
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of  true  scores  for  a given  test  can  be  estimated.  This  estima-  o 

tion,  resulting  in  "regressed"  scores,  is  made  by  modifying  the  0 

value  of  each  observed  score  in  accordance  with  the  reliability  ° 
coefficient  of  the  test.1  One  technique  for  equating  scores  is  oj 
\ to  plot  points  that  correspond  to  pairs  of  comparable  regressed 

b scores  on  rectangular  coordinates.  A smooth  curve  is  drawn 

through  the  points;  pairs  of  equated  scores  are  read  from  this 
curve.  In  addition  to  equating  scores,  the  program  predicts 
1 scores  on  one  test  from  raw  scores  on  the  other.  The  predicted 

score  is  the  regressed  score  that  has  the  same  percentile  rank 
1 as  the  predictor  raw  score  on  the  other  test. 

The  program  accepts  a set  of  raw  scores  and  a coefficient  of  re- 
L liability  for  each  of  two  or  more  tests.  (There  is  no  limit  to 

the  number  of  tests  to  be  equated  in  a single  run.)  The  scores 
. of  the  first  test  ( anchor  test)  entered  as  input  are  equated 

with  the  scores  of  each  subsequent  test,  one  test  at  a time,  by 
the  equipercentile  method  described  above. 

The  comparability  of  the  scores  of  different  forms  (or  tests)  is 
I specific  to  the  type  of  groups  used  in  obtaining  them.  A group 

that  is  both  representative  (of  the  population  of  examinees  for  ^ 

; whom  the  tests  are  intended)  and  large  (at  least  500  examinees)  . \ 

should  be  used.  Preferably,  the  same  examinees  should  take  all 
tests  to  be  equated  (Ref.  1,  p.  758).  Although  the  value  of  the 
results  is  enhanced  when  all  tests  are  taken  by  the  same  examinees 
and  by  an  equal  number  of  examinees,  the  program  does  not  require 
that  these  conditions  be  met. 

’ REFERENCES 

. 1.  Flanagan,  J.C.,  "Units,  Scores,  and  Norms,"  in  Educational 

Measurement , E.F.  Lindquist,  Ed.  (American  Council  on 
Education,  Washington  D.C.,  1951),  pp.  752—760. 


n 


2 7/70 


000  0073 


EDUCOM 


EDUCATIONAL  INFORMATION  NETWORK 


» 


000  0073 


r 


1 me 


USER  INSTRUCTIONS 
Preparation  of  Input 
System  Cards 

Wharton  Computational  Services  will  prepare  the  necessary  system 
cards  to  conform  with  the  current  version  of  the  operating  sys- 
tem. A cover  letter  should  accompany  the  data  stating  whether 
CalComp  output  is  desired. 

Data-Input  Cards 

A.  Provide  a score  packet  for  each  test  to  be  analyzed,  consist- 
ing of  a Title  Card  followed  by  Score  Cards  for  that  test. 

Data  for  the  "anchor"  test  should  come  first.  Scores  of 
each  subsequent  test  are  equated  with  those  of  the  "anchor" 
test.  There  is  no  limit  to  the  number  of  tests  for  which 
score  packets  are  submitted. 

(1)  Title  Card 

Columns  Contents 

1—  8 Alphabetic  title  of  test.  It  may  not  include  any 

numeric  digits,  periods,  plus  signs  or  minus  signs 

9-80  Ignored  by  the  program 

(2)  Score  Cards 

Punch  as  many  test  scores  as  desired  on  each  card.  Scores  must 
be  separated  by  at  least  one  blank.  When  Col.  80  of  a card  is 
reached,  continue  in  Col.  1 of  the  next  card.  (If  a score  ends 
in  Col.  80,  begin  the  next  score  in  Col.  2 of  the  next  card  to 
have  a blank  between  scores.)  The  scores  need  not  be  in  ascend- 
ing order  but  computer  time  will  be  saved  if  they  are.  If  a 
score  is  repeated  N times,  the  score  need  not  be  punched  N times. 
Instead,  punch  the  value  of  N followed  by  an  asterisk  followed 
by  the  score.  For  example,  if  17  people  have  the  score  112.5, 
punch  17*112.5.  Follow  the  last  score  with  a blank,  a semicolon, 
at  least  one  more  blank,  and  then  the  reliability  coefficient 
of  the  test  in  the  form 

XXXXXXXX  RELIABILITY  IS  0.RRR 

where  XXXXXXXX  represents  the  test  title  (exactly  as  punched  in 
the  Title  Card)  and  O.RRR  is  the  reliability  coefficient  of  the 
test.  (Notei  The  letter  0 is  slashed;  the  number  zero  is  not 
slashed. ) 
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B.  SCORMACH  can  also  process  (in  the  same  run)  additional  sets 
of  score  packets,  each  of  which  consists  of  an  "anchor" 
packet  followed  by  as  many  other  packets  as  desired.  Such 
additional  sets  of  score  packets  should  be  wrapped  separately 
and  clearly  marked;  the  anchor  packet  must  be  the  first 
packet  in  each  set. 

Description  of  Output 

Output  from  SCORMACH  appears  in  both  tables  and  graphs.  For 

each  test,  the  tables  include 

(a)  an  "echo  print"  of  the  raw  scores  of  the  examinees  . This 
may  be  omitted  if  the  user  so  specifies  in  the  cover  letter. 
(It  is  not  included  in  Sample  Output.) 

(b)  a listing  of  every  raw  score  attained  by  the  examinees  in 
the  group,  each  with  its  corresponding  percentile  rank  and 
regressed  score 

(c)  a listing  of  the  regressed  score  on  the  other  test  that 
corresponds  to  each  raw  score  attained  by  the  examinees 
in  the  group 

(d)  a listing  of  the  corresponding  raw  and  regressed  scores  for 
each  integer  percentile  rank 

The  graphs  include 

(a)  the  percentile  ranks  of  the  raw  and  regressed  scores  of 
both  tests 

(b)  the  predicted  scores  of  each  test,  given  the  raw  scores 
of  the  other  test 

(c)  the  raw  scores  of  both  tests  at  integer  percentile  values 

(d)  the  regressed  equipercentile  scores — i.d.,  regressed  scores 
of  test  one  versus  comparable  regressed  scores  of  test  two 

If  CalComp  plotter  output  is  specified,  a graph  is  produced  like 

the  final  illustration. 
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COST  ESTIMATE 

For  each  separate  computer  run  of  SCORMACH,  there  will  be  a 
setup  charge  of  $50.00  plus  a per-student  charge  of  10$  for  each 
test  beyond  the  "anchor”  test.  Postage,  handling,  and  consult- 
ing fees  are  included.  And  additional  $20.00  charge  will  be  made 
for  each  CalComp  plot.  (If  CalComp  option  is  requested,  one 
plot  will  be  produced  for  each  pair  of  tests  equated.) 

Charge  to  user  = $50.00  + 10$/student  for  each  test  beyond 

"anchor"  + network  overhead 


CONTENTS— SCORMACH 
pages 

1—  2 Identification  § Abstract 

3—  4 User  Instructions 

5-  9 I/O 

11  Cost — Contents 
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Multiple  Scalogram  Analysis 
MSA 

Office  of  Computational  Sciences 
Educational  Testing  Service 


DESCRIPTIVE  TITLE 
CALLING  NAME 
INSTALLATION  NAME 

AUTHOR ( S ) AND 
AFFILI ATION(S) 


LANGUAGE 
COMPUTER 
PROGRAM  AVAILABILITY 

CONTACT 


FUNCTIONAL  ABSTRACT 


Procedure  due  to: 

Program  due  to: 
Adaptation  due  to: 

Advisor  on  use: 
MAP 

IBM  360/65 


L.  Guttman 
J.  Lingoes 

University  of  Michigan 
J.  Lingoes 

University  of  Michigan 
D.  Kirk 

Educational  Testing 
Service 

H . Harman 

Educational  Testing 
Service 


Decks  and  listings  presently  available 

Mr.  Ernest  Anastasio,  Office  of  Data 
Analysis' Research , Educational  Testing 
Service,  Rosedale  Road,  Princeton, 

N.J.  08540 

Tel.:  (609)  921-9000  ext.  2552 


This  program  performs  a multiple  scalogram  analysis  using  the 
method  of  James  Lingoes1.  Do  not  confuse  this  with  Guttman- 
Lingoes  Multidimensional  scalogram  analysis  which  is  available 
under  the  name  of  MSA-I  (EIN  Abstract  000  0070). 

REFERENCES 

1.  Lingoes,  J.C.,  ”A  Set-Theoretic  Model  for  Analyzing  Dichoto- 
mous Items,”  J.  of  Ed.  Psych.  Meas . , 23,  pp.  501—524,  (1963). 
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USER  INSTRUCTIONS 
Input  Deck 
Parameter  Card  A 


Co lumn8 
1-  3 


Contents 

Number  of  cases  to  be  run 


Title  Card 

Columns  Contents 

1 1 

2—72  Any  title 


Parameter  Card  B 


Co lumns 
1-  3 
4-  6 
7 

8-10 

11-16 

17-20 

21 

22 

23 

24 


Contents 

Number  of  subjects  (<100) 

Number  of  items  (<122) 

1:  responses  must  be  dichotomized 

0:  responses  are  either  1 or  0 

Reproduceability  criterion  (normally  about  .80) 

Chi-square  criterion  (normally  10.827) 

ID  run  number  (may  be  alphameric) 

1:  print  input  data 

0:  do  not  print  input  data 

1:  print  debugging  output 

0:  do  not  print  debugging  output 

1:  Description  Cards  present 

0:  no  Description  Cards 

1:  Cornell  scores  printed  for  scales  with  two  or 

more  items 

0:  Cornell  scores  not  printed 


Parameter  Card  C (Omit  if  Col.  7 of  Parameter  Card  B is  0.) 
Columns  Contents 

1—  3 Maximum  number  of  categories  for  any  item 
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Parameter  Card  D (Omit  if  number  punched  on  Parameter  Card  C > 2.) 


Co lumns 
1-  3 

Contents 

Response 

code 

for 

item 

1, 

response  A 

4—  6 

Response 

code 

for 

item 

1, 

response  B 

7-  9 

• 

• 

Response 

0 

code 

for 

item 

2, 

response  A 

• 

76-79 

• 

Response 

code 

for 

item 

13 

, response  B 

Note:  This  card  is  used  when  number  on  Parameter  Card  C is  2. 

Punch  as  many  cards  as  required  to  satisfy  the  number  of  items 
specified  in  Parameter  Card  B (Col.  4—6). 

Format  Card 

Standard  FORTRAN  format  for  input  data.  Omit  the  word  FORMAT. 

Description  Deck  (Omit  this  deck  if  Col.  23  of  Parameter  Card  B 

is  0 . ) 

Columns 

1-72 


Contents 


Alphameric  description  card.  Punch  one  for  eaoh 
item. 

Data  Deck 

Punch  one  subject  ID  followed  by  all  item  codes  for  the  number 
of  items  specified  according  to  the  format  specified  on  the 
Format  Card. 

Multiple  case  runs  will  repeat  the  Input  Deck  from  Title  Card 
through  Data  Deck,  as  many  times  as  specified  on  Parameter 
Card  A. 

Job  Deck 

The  program  is  currently  in  the  system  and  may  be  called  as 


follows . 


//JOB  CARD  (will  be  provided  by  ETS  personnel). 
//EXEC  GI TNGO, NAME=MSA 
//GO  . SYS  I N DD  !{ 

(insert  Input  Deck  or  Decks  here.) 
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Output 

The  output  will  vary  according  to  the  options  selected.  The 
Sample  Input/Output  gives  a hypothetical  example  with  8 items 
and  25  subjects.  The  output  selections  included  input  para- 
meters, Cornell  scores  and  answer  patterns  ordered  by  subject 
ID  for  scales  1 and  2,  and  subjects  ordered  by  Cornell  scores 
for  scales  1 and  2. 
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SAMPLE  INPUT 


/ /MSATST  JOB  C 

//EXEC  G I TNGO, NAME=MSA 
// GO.SYSIN  DD  }! 

1 

1 THIS  WILL  TEST  MSA  WITH 

0250080.80  3 . 84TEST 101 1 

(I2,8(2X,  ID) 

ITEM  NO.  1 
ITEM  NO.  2 
ITEM  NO.  3 
ITEM  NO.  4 
ITEM  NO.  5 
ITEM  NO.  6 
ITEM  NO.  7 
ITEM  NO.  8 

01  1 0 0 1 0 0 1 

02  0 0 1 1 0 1 0 

03  1 0 0 0 1 1 0 

04  1 0 1 1 0 1 1 

05  1 1 0 0 1 1 0 

06  0 0 1 1 0 1 1 

07  1 0 0 x 0 1 0 

08  1 0 0 0 1 0 0 

09  1 0 1 0 1 1 0 

10  1 0 0 1 1 1 0 

11  1 0 0 1 1 0 0 

12  1 0 0 1 1 1 0 

13  0 1 1 0 1 1 0 

14  1 0 0 1 0 1 0 

15  1110  110 

16  1 0 0 1 0 1 1 

17  1 1 0 0 1 0 0 

18  0 0 1 1 1 1 0 

19  1 0 0 0 1 1 0 

20  1 0 1 1 0 1 0 

21  1 0 0 1 0 0 0 

22  1001011 
2 3 1 1 0 0 1 1 0 

24  1 0 1 1 1 1 0 

25  0 0 1 0 1 1 0 

/\p 
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A 

1 

0 

0 

0 

1 

0 

0 

1 

0 

1 

1 

0 

0 

1 

0 

0 

1 

0 

1 

0 

1 

1 

0 

0 
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SAMPLE  OUTPUT 


THIS  WILL  TEST  MSA  WITH  A HYPOTHETICAL  2-DIMENSIONAL  CASE 


ORIGINAL  DATA 


1 2 3 4 S 6 7 8 

1 1 0 0 1 0 0 1 1 

2 0 0 1 1 0 1 0 0 

3 1 0 0 0 1 1 0 0 

4 10  110  110 

5 110  0 110  1 


20  10  110  10  0 
21  1 0 0 1 0 0 0 1 
22  10010111 

23  11001100 

24  10  11110  0 

25  00101100 


SCALE  NO.  1 INCLUDES  THE  FOLLOWING  ITEMS 
ITEM  NO.  REFLECTED  MARGINAL  SUM 


1 

0 

20 

ITEM  NO.  1 

3 

1 

15 

ITEM  NO.  3 

8 

0 

10 

ITEM  NO.  8 

6 

1 

5 

ITEM  NO.  6 

CHI-SQUARE  CRITERION  = 3.840 
PHI  = 0.80 
REPRODUCIBILITY  = 1.000 
MIN.  MARGINAL  REPR.  =■  0.700 
NUMBER  IN  SCALE  = 4 
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CORNELL  SCORES  AND  ANSWER  PATTERNS  ORDERED 

BY  SUBJECT  IDENTIFICATION  NUMBER 
FOR  SCALE  NO.  1 

ID  NUMBER  CORNELL  SCORE  ANSWER  PATTERN 


r ** 


k 


1 4 

2 0 

3 2 

4 1 

5 3 

6 0 

7 2 

8 4 

9 1 

10  3 

11  4 

12  2 

13  0 

14  3 

15  1 

16  2 

17  4 

18  0 

19  3 

20  1 

21  4 

22  3 

23  2 

24  1 

25  0 


COLUMN  SUMS  FOR  THIS  SCALE 


13  8 

1 1 1 

0 0 0 

1 1 0 

10  0 
1 1 1 

0 0 0 

110 
1 1 1 

1 C 0 

1 1 1 

1 1 1 

1 1 0 

0 G 0 

1 i : 

1 0 0 

1 1 G 

i i : 

0 0 G 

1 1 I 

10  0 
111 
1 1 1 

1x0 
10  0 
0 0 0 

20  15  10 


6 

1 

0 

0 

0 

0 

0 

0 

1 

0 

0 

1 

0 

0 


A 

v; 

1 

5 

0 

0 

0 

5 


SUBJECTS  ORDERED  BY  CORNELL  SCORES 
FOR  SCALE  NO.  1 


CORNELL  SCORE  ID  NUMBER 


0 

0 

0 

0 

0 

1 

1 


2 

6 

13 

18 

25 

15 

9 


3 

3 

4 
4 
4 
4 
4 


14 

19 

21 

17 

11 

1 

8 


f 
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SCALE  NO.  21NCLUDES  THE  FOLLOWING  ITEMS 


ITEM  NO,  REFLECTED 


MARGINAL  SUM 


l 

1 

20 

ITEM 

NO. 

2 

4 

0 

15 

ITEM 

NO. 

4 

j 

1 

10 

ITEM 

NO. 

5 

1 

0 

5 

ITEM 

NO. 

7 

CHI-SQUARE 

CRITERION  = 

3.840 

PHI 

0.80 

REPRODUCIBILITY  = 1.000 
MIN.  MARGINAL  REPR.  * 0,700 
NUMBER  IN  SCALE  = 4 


CORNELL  SCORES  AND  ANSWER  PATTERNS  ORDERED 

BY  SUBJECT  IDENTIFICATION  NUMBER 
FOR  SCALE  NO.  2 

ID  NUMBER  CORNELL  SCORE  ANSWER  PATTERN 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 


2 

4 

3 
2 

4 
3 
2 
1 

3 
2 
0 
2 
1 
1 

4 
0 
4 
4 
3 
1 
3 
0 
0 
1 
0 


2 4 5 7 

110  0 
1111 
1110 
110  0 
1111 
1110 
110  0 
10  0 0 

1110 
110  0 
0 0 0 0 

110  0 
10  0 0 

10  0 0 

1111 
0 0 0 0 

1111 
1111 
1110 
10  0 0 

1110 
0 0 0 0 

0 0 0 0 

1 0 O 0 

0 0 0 0 


i 


COLUMN  SUMS  FOR  THIS  SCALE 


20  15  10  5 
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SUBJECTS  ORDERED  BY  CORNELL  SCORES 
FOR  SCALE  NO.  2 


CORNELL  SCORE  ID  NUMBER 


f 


0 

0 

0 

0 

0 

1 

1 

1 

1 

1 

2 

2 

2 

2 

2 

3 

3 

3 

3 

3 

4 
4 
4 
4 
4 


11 

16 

22 

23 
25 
20 

13 

14 

24 
8 

4 

12 

7 

1 

10 

21 

6 

9 

19 

3 

5 

17 

18 
2 

15 


ALL  POSSIBLE  SCALES  HAVE  BEEN  FORMED— MULTIPLE  SCALOGRAM 
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COST  ESTIMATE 

The  pricing  algorithm  for  the  Educational  Testing  Service  is 
based  on  a complex  formula  involving  the  amount  of  core  usage, 
card-processing,  tape  and  dedicated  device  usage,  lines  printed 
and  central  processor  unit  (CPU)  elapsed  time.  Computer  costs 
for  the  job  included  in  the  Sample  Input  were  $1.41. 

Charge  to  user  = computer  costs  + postage  and  handling  + network 

overhead 

= $1.41  + $5.00  + network  overhead 
= $6.41  + .letwork  overhead 


CONTENTS— MSA 


pages 

1 

3-  5 
7-11 
13 


Identification  § Abstract 
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Nonmetric  Multidimensional  Scaling 

Subroutine  KRUSCAL 

Michigan  State  University 
Computer  Laboratory 

Alan  M.  Lesgold 

Computer  Institute  for  Social  Science 
Research 

Michigan  State  University 
FORTRAN  or  COMPASS 
CDC  3600 

Decks  and  listings  presently  available 

Dr.  Anders  Johanson,  Programming  Supervisor 
Applications  Programming,  Computer 
Laboratory,  Computer  Center,  Michigan 
State  University,  East  Lansing,  Mich. 

48823 

Tel.:  (517)  355-4684 


KRUSCAL  is  an  implementation  of  J.B.  Kruskal’s  recently  published1 
numerical  method  for  multidimensional  scaling  by  optimizing 
goodness  of  fit  to  a nonmetric  hypothesis2.  Given  a matrix  of 
similarities  or  dissimilarities  between  n variables,  the  routine 
outputs  a configuration  of  n points  in  a specified  number  of 
dimensions  such  that  the  distance  between  any  two  points  is  a 
monotone  function  of  the  dissimilarity  of  the  two  variables  cor- 
responding to  those  two  points. 

General  Description  of  Input 

KRUSCAL  will  accept  as  input  any  matrix  or  halfmatrix  (below 
major  diagonal)  with  or  without  the  major  diagonal,  of  similari- 
ties or  dissimilarities,  including,  among  others,  correlation 
coefficients,  confusion  probabilities,  interaction  rates  among 
groups,  etc.  This  matrix  need  not  be  symmetric,  and  the  program 
allows  for  missing  data;  interpoint  distances  corresponding  to 
missing  data  values  do  not  contribute  to  the  stress. 

continued 
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General  Description  of  Output 

The  output  consists  of  three  sections  for  the  two-dimensional 
case  and  two  sections  for  other  dimensionalities.  In  every 
case,  a history  of  computation  is  printed,  showing  for  each 
iteration1  the  following  information. 


STRESS  = Normalized  stress  achieved  2 
SRAT  « The  rate  of  stress  improvement 

SRATAV  = Weighted  average  of  SRAT 


STRESS. 

l 

STRESSi_1 


= SRATi^3  x SRATAVi_l  ^ 

CAGRGL  = Cosine  of  angle  between  gradient  and  previous  gradient1 
C0SAV  - Weighted  average  of  CAGRGL 

= (l/3)CAGRGLi  + (2/3)COSAVi,1 


ACSAV  ■ Weighted  average  of  the  magnitude  of  CAGRGL,  computed 
in  the  same  manner  as  COSAV 

SFGR  ■ Scale  factor  ^f  gradient,  [same  as  Kruskal 's  mag(g)]1 
STEP  = Step  size1 


Also,  in  every  case,  the  final  number  of  dimensions  is  printed. 
There  is  an  option  for  printing  the  interpoint  distances  in 
each,  final  configuration,  and  an  option  for  punching  the  final 
configuration  onto  cards  (see  description  of  option  cards). 


In  the  two-dimensional  case,  the  final  configuration  is  also 
plotted  (on  the  line  printer,  not  on  the  plotter). 


REFERENCES 

1.  Kruskal,  J.,  ’’Nonmetric  Multidimensional  Scaling:  A Numerical 

Method”,  Psychometrika,  29,  pp.  115—129,  (June,  1964). 

2.  Kruskal,  J. , ’’Multidimensional  Scaling  by  Optimizing  Goodness 
of  Fit  to  a Nonmetric  Hypothesis,”  Psychometrika,  29, 

pp.  1—28,  (March,  1964). 
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Calling  Sequence 

The  routine  is  called  in  the  ordinary  manner  for  calling  FORTRAN 
SUBROUTINES  that  have  no  formal  parameters . 1 9 2 


From  a FORTRAN  program: 
CALL  KRUSCAL 


From  a COMPASS  program: 


BRTJ  ($) KRUSCAL,  ,* 
SLJ  *+l 

00  DICT. 


Arguments  or  Parameters 

All  parameters  are  read  by  SUBROUTINE  KRUSCAL  from  the  data  deck. 
See  Description  of  Input. 

Space  Required  (Decimal) 

The  subroutine  itself  and  the  Subroutines  that  it  contains  take 
a total  of  13817  words  of  core  storage.  The  total  amount  of  core 
storage  taken  up  by  KRUSCAL  and  all  of  the  routines  (including 
library  routines)  that  it  calls  is  17285  words. 

Error  Returns  or  Error  Codes 

The  message,  KRUSCAL,  IMPROPER  CONTROL  CARD,  is  printed  along 
with  the  contents  of  any  control  card  in  the  data  deck  that  is 
incorrect.  The  program  then  terminates  by  doing  a return  to 
SCOPE  through  Q8QERROR. 

Error  Stop 

A condition  that  is  logically  impossible  in  the  program  (i.e., 
a recognized  machine  error)  will  generate  the  message  KRUSCAL 
and  will  terminate  through  Q8QERR0R. 

Accuracy 

Accuracy  is  not  a problem,  since  the  original  data  values  are 
stored,  and  the  measures  used  in  determining  when  a solution 
has  been  reached  are  functions,  in  part,  of  these  original 
data  values . 

Caution  to  Veeve:  Up  *~o  60  variables  may  be  scaled  in  up  to 

10  dimensions.  *Users  should  be  aware  of  the  ’’local  minima” 


problem. 3 
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Flow  Chart 

The  algorithm  and  logical  flow  of  the  program  are  described  in 
Ref.  3.  The  following  array  names  have  been  changed  from  those 
recorded  in  that  reference. 

In  Ref . 3 In  the  MSU  program  version 

DISSIM  . DATA 

DOTHER  LBLOCK 

The  subroutines  are: 

Uses  latest  gradient  to  get  new  configuration. 

Sorts  an  array,  dragging  along  one  or  more 
other  arrays . 

Computes  new  value  of  STEP,  COSAV,  ACSAV, 
etc . 

Prints  inter-point  distances  of  final  con- 
figuration. 

Routines  for  packing  and  unpacking  IJ  (see 
Ref.  3) 

Routines  to  take  powers  and  roots.  Negative 
numbers  are  complemented,  the  root  or  power 
is  taken,  and  they  are  recomplemented.  Zero 
and  first  powers  and  roots  do  not  use  POWRF. 

Routine  to  convert  alphanumeric  parameter 
options  into  numeric  parameters  and  to  set 
switches  based  on  these  options. 

Routine  to  do  numeric  conversions  for  CCACT. 

COMP,  KPACK,  and  CCACT  are  COMPASS  routines;  the  rest  are  in 
3600  FORTRAN. 

Description  of  Input 

The  input  data  deck  should  contain  the  following,  in  the  order 
listed. 

For  each  data  set: 

Option  Cards,  if  any. 

Configuration  Deck,  if  desired. 

Data  Description  Deck. 

Data . 


FIT 

SORT 

NEWSTP 

PRINDIST 

KPACK 

COMP 

CCACT 

CCIO 


oontinued 
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After  all  the  data  sets  (there  may  be  more  than  one  data  set  in 
g a run) , a STOP  card  should  follow. 

o Option  Cards 

O 

Any  of  the  following  options  may  be  used.  They  may  be  entered 
in  any  order.  Wherever  a normal  case  is  mentioned,  it  refers 
to  the  parameter  values  the  program  will  assume  if  the  particu- 
lar option  card  is  omitted.  All  of  these  options  may  be  punched 
free-field,  but  there  should  not  be  spaces  between  the  letters 
of  a single  word,  or  the  digits  of  a single  number.  More  than 
one  option  can  be  punched  on  a single  card,  but  each  word  or 
number  must  be  separated  from  the  next  word  or  number  by  a blank 
column.  In  any  case,  only  the  first  72  columns  of  the  card  can 
be  used  for  specifying  an  option,  and  each  option  must  be  com- 
pletely specified  on  one  card,  i.e.,  no  continuations  to  a new 
card  are  allowed. 

(a)  . The  normal  case  assumes  that  the  entire  matrix  of  similari- 
ties (or  dissimilarities)  is  being  input.  If  only  the  lower 
half  of  the  matrix  (with  or  without  the  major  diagonal)  is  being 
input,  punch  the  word  HALFMATRIX  on  an  option  card.  Obviously, 
the  program  will  then  assume  that  the  data  matrix  is  symmetric. 

(b)  . If  the  HALFMATRIX  option  is  chosen,  the  normal  case  would 

I be  for  the  major  diagonal  to  be  included.  If  the  major  diagonal 

v is  not  included,  punch  the  phrase  DIAGONAL  ABSENT  on  one  of  the 

option  cards . 

(c)  . Missing  data  values  are  indicated  by  filling  the  appro- 
priate cell  of  the  matrix  with  a value  that  is  less  than  the 
cutoff  value,  which  is  normally  zero.  If  a different,  cutoff 
is  desired,  punch  the  word  CUTOFF  and  a real  number  on  one  of 
the  option  cards,  e.g.,  CUTOFF  3.0. 

(d)  Scaling  is  done  using  the  Minkowski  r-metric4  with  a normal 
case  value  of  r=2.0,  giving  Euclidean  distance.  If  a different 
value  of  r is  desired,  punch  the  letter  R follow  by  a real  number 
to  specify  the  value  of  r that  is  desired,  e.g.,  R 1.0  will  give 
"city-block"  distances. 

(e)  . In  the  normal  case,  equal  data  values  corresponding  to 
unequal  distances  in  the  configuration  do  not  contribute  to  the 
stress,  and  no  attempt  is  made  to  equalize  these  distances. 

This  is  what  Kruscal  describes  as  the  "primary”  approach.4  If 
the  "secondary"  approach  is  desired,  i.e.,  if  it  is  desired  that 
unequal  distances  which  correspond  to  equal  data  values  contri- 
bute to  the  stress,  and  hence,  that  an  attempt  be  made  to 
equalize  these  distances,  the  word  SECONDARY  should  be  punched 
on  an  option  card. 

continued 
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(£) . In  the  normal  case,  scaling  is  done  for  two  dimensions 
only.  Scaling  may  be  done  in  any  number  of  dimensions  from 
one  to  ten.  In  a non-normal  case,  the  maximum  number  of  dimen- 
sions desired  can  be,  specified  by  punching  the  word  DIMMAX 
followed  by  an  integer  specifying  the  maximum  number  of  dimen- 
sions desired  (up  to  ten) . Similarly,  the  minimum  number  of 
dimensions  can  be  changed  from  the  normal  case  (two)  to  some 
other  value  by  punching  the  word  DIMMIN  followed  by  an  interger 
specifying  the  minimum  number  of  dimensions  desired.  In  the 
normal  case,  a configuration  is  computed  for  every  number  of 
dimensions  from  DIMMAX  through  DIMMIN.  If  this  is  not  desired, 
punch  the  word  DIMDIF  followed  by  an  integer  on  an  option  card. 
The  scaling  will  then  start  with  DIMMAX  dimensions  and  proceed 
down  by  steps  of  DIMDIF  dimensions  until  DIMMIN  is  passed.  Thus 
the  normal  case  is  equivalent  to  the  following  option  card: 

DIMMAX  2 DIMMIN  2 DIMDIF  1.  The  option  card  DIMMAX  10  DIMMIN  2 
DIMDIF  3 would  cause  scaling  in  10,  7,  and  4 dimensions;  note 
that  if  DIMMIN  had  instead  been  1,  scaling  would  have  been  done 
in  10,  7,  4,  and  1 dimensions.  Only  one  or  two  of  the  normal 
case  values  need  be  changed;  e.g.,  DIMMAX  10  alone  would  pro- 
duce scaling  in  10,  9,  8,  7,  6,  5,  4,  3,  and  2 dimensions. 

(g)  . Normally,  scaling  for  a given  number  of  dimensions  stops 
if  STRESS  is  less  than  0.05,  if  SFGR  is  less  than  or  equal  to 
zero,  if  SRAT  is  greater  than  0.999,  or  if  there  have  been  more 
than  25  iterations  of  the  scaling  routine.  A different  lower 
bound  can  be  specified  for  STRESS  by  punching  the  word  STRMIN 
followed  by  a real  number,  to  specify  the  requested  boundary 
value,  on  an  option  card.  A lower  bound  for  SFGR  can  similarly 
be  specified  by  punching  SFGRMN  followed  by  a real  number  on 

an  option  card.  In  the  same  manner  an  upper  bound  for  SRAT 
can  be  specified  by  punching  SRATST  followed  by  a real  number 
and  for  the  number  of  iterations  by  punching  ITERATIONS  followed 
by  an  integer. 

(h)  . If  it  is  desired  that  the  final  configuration  for  each 
number  of  dimensions  be  punched  onto  cards  as  well  as  being 
printed,  the  word  PUNCH  should  be  punched  on  an  option  card. 

(i)  . If  it  is  desired  that  the  interpoint  distances  of  the 
final  configuration  be  printed,  the  word  DISTANCES  should  be 
punched  on  an  option  card. 

Configuration  Deck  (optional) 

Normally,  the  computer  arbitrarily  creates  a starting  configura- 
tion for  the  largest  number  of  dimensions  in  which  scaling  has 
been  requested.  The  results  of  scaling  in  each  number  of 
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dimensions  are  then  used  as  a starting  configuration  for  the 
next  smaller  number  of  dimensions  in  which  scaling  has  been 
requested.  There  is,  however,  a provision  for  the  specification 
by  the  user  of  a starting  configuration.  A starting  configura- 
tion can  be  used  to  get  more  iterations  on  a previously  done 
scaling  job,  or  more  important,  to  specify  a different  con- 
figuration when  the  arbitrary  configuration  results  in  only 
locally  minimum  stress. 4 The  configuration  specified  by  the 
user  need  not  have  the  same  dimensionality  as  the  maximum  number 
of  dimensions  specified.  A useful  starting  configuration  is 
the  principal- axis  factor  solution  to  the  matrix  of  similarities. 
A configuration  deck  is  made  up  in  the  following  manner: 


Card 

1: 

the  word  CONFIGURATION  anywhere  in  Col.  1—72 
on  a card. 

Card 

2: 

in  Col. 
any  BCD 

1—72,  a title  for  the  configuration — 
characters  may  be  used. 

Card 

3: 

Columns 

Contents 

1-  3 

the  number  of  points  (the  number  of 
rows)  of  the  configuration  matrix 

4-  6 

the  number  of  dimensions  (the 
number  of  columns)  of  the  configura- 
tion matrix 

Card 

4: 

Columns 

Contents 

1-72 

a standard  FORTRAN  data  format 

for  one  row  of  the  configuration 
matrix  (This  is  an  F-type  format 
statement;  for  more  information, 
see  Ref.  2.) 

Matrix  deck:  the  actual  configuration  matrix,  row  by  row. 


Data  Description  Cards 
Card  1:  Columns 

1-72 


Card  2:  Columns 

1-72 


Contents 

punch  SIMILARITIES  if  the  data  are 
a matrix  of  similarities; 
DISSIMILARITIES  if  the  data  are  a 
matrix  of  dissimilarities. 

Contents 

the  title  of  the  data  matrix;  any 
BCD  characters  may  be  used. 
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Card  3:  Columns 

1-  3 

Card  4:  Columns 

1-72 


\ 

> 

o 

Contents  § 

the  number  of  objects  to  be  scaled  0 
(the  order  of  the  data  matrix) . 5 

<-n 

Contents 

a FORTRAN  F-type  format  for  the 
longest  row  of  the  data  matrix. 

(For  more  information,  see  Ref.  2.) 


Data  Deck 

The  data  matrix  should  be  inserted  at  this  point.  Its  form 
will  depend  on  whether  the  whole  or  half  matrix  is  entered. 

If  the  whole  matrix  is  entered,  it  should  be  entered  one  row 
at  a time,  with  each  row  starting  on  a new  card.  If  the  halt 
matrix  is  entered  and  the  diagonal  is  present,  then  each  row 
should  include  only  the  values  up  to  and  including  the  diagonal 
If  the  diagonal  is  absent,  the  data  matrix  starts  with  row 
of  the  similarity/dissimilarity  matrix,  and  each  row  includes 
the  values  up  to  but  not  including  the  diagonal  element. 


Compute  Card 

After  the  data  matrix,  the  data  deck  should  contain  a card 
with  the  word  COMPUTE  punched  somewhere  in  Col.  1-72. 

Stop  Card 

The  last  card  of  the  job  deck  should  have  punched  on  it  the 
word  STOP  somewhere  in  Col.  1—72. 


REFERENCES 

1.  Mich.  State  Univ.  Computer  Inst,  for  Social  Science  Research, 
Technical  Report  66-1A. 

2.  Mich.  State  Univ.  Computer  Inst,  for  Social  Science  Research, 
Technical  Report  66— IB. 

3.  Kruskal,  J. , "Nonmetric  Multidimensional  Scaling:  A Numerical 

Method",  Psychometrika , 29,  pp.  115—129,  (June,  1964). 

4.  Kruskal,  J.,  "Multidimensional  Scaling  by  Optimizing  Goodness 
of  Fit  to  a Nonmetric  Hypothesis,"  Psychometrika,  29, 
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SAMPLE  INPUT 

’JOB, 015525, KRUS CAL, 3 . U, APHL 
'EQUIP, 17=CCISSR  B INARY), MTC537),RO 
' LOAD, 17 
'RUN, 5. 00, 2000. 

$ROUTI NE, KRUSKAL 
' MARKEF, 69 
'LOAD 

'RUN, 5. 00, 2000. 

DIMMAX  10 

DIMMIN  1 

HALFMATRIX 

CUTOFF  -.05 

SECONDARY 

ITERAT  100 

DISSIMILAR 

DISTANCES  OF  REGULAR  HEXAGON 
6 

(6F10. 9) 

0000000000 

10000000000000000000 

173205000010000000000000000000 

2000000000173205000010000000000000000000 

17320500002000000000173205000010000000000000000000 

100000000017320500002000000000173205000010000000000000000000 

COMPUTE 

STOP 
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SAMPLE  OUTPUT 


DlMMAX 

DIMMJN 

halfmatrjx 

CUTOFF 

SECONDARY 

ITERAT 

dissimilar 

DISTANCES  OF 
6 -n 

BECAUSE  THE 
COMPUTE 


10 

1 

.0 

.0 

.0 

100 
* 0 

REGULAR  HEXAGON 


number 


REPLICATES  HAS  NOT  BEEN  SPEC  1 F 1 1 ED. 


IT  IS  ASSUMED  TO  BE  1 « 


HISTORY  OF  COMPUTATION,  N«  6,  DIMENSION!  10 

ITERATION  stress  srat  sraTav  CAGRGL  cosav  acsav  sfgr  step 


D*0A 
D*0A 
D*0  A 
Ds0A 
D*0  A 
D*0A 

3 0,273  0.800  0,600  0,000  0,000  0,000  0,1134  1,5500 

D*0A 
D*0  A 
D*0A 
D*0A 
C*0  A 
D*0A 

1 0,291  1,063  0,660  -0,025  *0,017  0,017  0,0892  1,3892 

D*0A 
D*0A 
D*0A 
D*0A 
D*0  A 
D*0A 

2 0,379  1,303  1,003  -0,400  *6,269  0,269  0,1078  0,6693 

D*  0A 
D»0A 
D*0A 
D«0A 
D*0  A 
D*0A 

3 0,194  0 , 513  0,602  -0,398  *9,355  0,355  0,0967  0,3083 

D*0A 
D*0A 
D«0A 
D*0  A 
D*  0 A 
D*PA 

4 0,070  0,302  0,615  -0.198  *9,251  0,251  0,1043  0,1684 

Ds0A 
D*0A 
D*0  A 
D*0  A 
D*0A 
D*0A 

5 0,056  0,796  0,670  *0,865  *9,656  0,656  0,1112  0,0746 

D*0A 
n*iiA 
D*0  A 
D*U  A 
D*0  A 
D*0  A 

6 0,014  0,245  0,479  I., 336  *0,001  0,445  0,0681  0,0349 

D*0A 

D*0A 

D*0A 

D*0A 

D*0A 

D*0A 

7 0,006  0,441  n,466  -0.325  *0,215  0,365  0,1178  0,0205 


/ 


o 

o 

o 

o 
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ITERATION  stress  SRAT  SR  AT  A v caghgl  cos av  ACS av  SFGR  STEF 
SATISFACTORY  stress  was  reached 

the  final  CONFIGURATION  OF  6 POINTS  IN  10  DIMENSIONS  HAS  STRESS  0,006 


1 0.534 

2 -0,255 

3 -0.168 

4 -n.07l 

5 -0.077 

6 0.036 


2 3 

4 5 

6 

7 

8 

9 

•0,471  -0,410 

•0,391  -0,391 

8*080 

0,000 

0,000 

0*000 

0,803  .-0,351 

•0,140  -0,234 

8*312 

0,000 

0,000 

0*000 

-0,115  0,880 

•0,210  -0,275 

0*220 

0,000 

0,000 

0*000 

•0,226  -0,111 

0,953  -0,144 

8*071 

0,000 

0,000 

0*000 

-0,164  -0,081 

•0,157  0,936 

0*266 

0,000 

0,000 

0*000 

0,192  0,072 

•0,066  0,108 

*8*969 

0,000 

0,000 

0*000 

10 

0,000 

0,000 

0,000 

0,000 

0,000 

0,000 


f 


HISTORY  OF  COMPUTATION,  Ns  6,  DIMENSIONS  9 
ITERATION  STRESS  SRAT  SRATAV  CAGRGL  COSAV  ACSAV 

D*0a 

D'O  A 
0*0A 
D:0A 
D*0A 
D*0A 

0 0,006  0,800  0,800  0,000  8,000  0,000 
ITERATION  STHESS  SRAT  SRATAV  CAGRGL  COSAV  ACSAV 

SATISFACTORY  stress  was  rfached 


SFGR  STEP 


0,1178  0,0356 

SFGR  STEP 


FINAL  CONFIGURATION 
L CONFIGURATION 

or  6 

POINTS 

IN  9 

DIMENSIONS  HAS 

STRESS 

1 

2 3 

4 

5 

6 

7 

8 

9 

0 .534 

-0,471  -0,410 

• 0 i 39t 

•0,391 

0,080 

0,000 

0.000 

0*000 

0.255 

n,B03  »0,35l 

•0,140 

•0,234 

0,312 

0,000 

0,000 

0.000 

U » 166 

•0,115  0,880 

• n , 2 o 0 

•0,275 

0,220 

0,000 

0,000 

0*000 

0.071 

• 0,226  -0,111 

0,953 

•0,144 

8,071 

0,000 

0,000 

0*000 

U * 077 

•0,184  -0,081 

•0,157 

0.936 

0,286 

0,000 

0,000 

0.000 

0.036 

0,19?  0,072 

*0,066 

0,108 

•8,969 

0,000 

0,000 

0*000 

0,006 


HISTORY  OF  COMPUTATION,  No  6,  DIMENSIONS  ft 


HISTORY  OF  COMPUTATION,  Ns  6,  DIMENSIONS  5 

ITERATION  STRESS  SRAT  SRATAV  CAGMGL  COSAV  ACSAV  SFGR  STEP 


D*UA 
0*0  A 
D*DA 
D»0A 
0*0  A 
0*0  A 

0 0,185  0,800  0,800  0,000  0,000  0,000  0,0329  0,3047 

D*0A 
D*0A 
D*0A 
D*0  A 
D*0  A 
D*0A 

1 0,128  0,691  0,762  0,037  0,025  0,025  0,0985  0,2919 
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D*0A 
D*0A 
D*0A 
0*0  A 
0*0  A 
0*0  A 

2 0,092  0,722  0,748  >0,816  >8,560  0,547  0,0992  0,1326 

D*0A 
D*0A 
0*0  A 
0*  0 A 
0*0  A 
D*0A 

3 0,034  0,370  0,592  >0,053  -8,216  0,221  0,0661  0,0777 

0*0  A 
D*0A 
D*0A 
0*0  A 
D*0A 
0*0  A 

4 0,019  0,559  0,581  -0,290  >8,269  0,267  0,1102  0,8527 

D*0A 
0*0  A 
D = 0A 
0*0  A 
D*0A 
0*0  A 

5 0,019  0,983  u,692  -0,940  >0,716  0,716  0,1176  0,0234 

D*0A 
0*0  A 
D*0A 
0*0  A 
O*0A 
D*0A 

6 0,003  0,152  0,417  0,911  8,358  0,845  0,0977  0,0139 

ITERATION  STRFSS  SRAT  SRATaV  CAGRGU  eOSAV  ACSAV  SFOR  STEP 

satisfactory  stress  was  reached 

THE  FINAL  CONFIGURATION  OF  6 POINTS  IN  5 DIMENSIONS  HAS  STRESS  0,003 


FINAL  CONFIGURATION 


1 

1 0.557 

2 -0.501 

3 -0.352 

4 -0.042 

5 -0.300 

6 0.638 

2 3 

-0,459  -0,410 
0,637  >0,458 
•0,24?  0,811 

•0,200  >0,098 
•0,346  >0,180 
0,610  0,335 

4 5 

•0,395  >0,389 
>0,178  >0,319 
•0,226  >0.34l 
0,961  -0,130 
>0,184  0.855 

0,022  0,324 

********* 

HISTORY  OF 

COMPUTATION, 

N*  6,  DIMENSION* 

4 

iteration 

STRESS  SRAT 

SRATAV  CAGRGL 

COSAV 

ACSAV 

SFGR 

STEP 

D®  0 A 
D8  0 A 
D8  0 A 
D8  0 A 
D»0A 
D8  0 A 

0 

0,154  0,800 

0,800  -0,000 

•0i 000 

0,000 

0,0536 

0,4118 

U 8 0 A 
D80  A 
D*0A 
D80  A 
D80  A 
D80  A 

19 

0,104  1,000 

0,999  0,926 

0.500 

0,889 

0,0013 

0,0021 

ITERATION  STRESS  SRAT  SRATAV  CAGKGL  COSAV  ACSAV  SFGR  STEP 


MINIMUM  WAS  ACHIEVED 
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THE  FINAL  CONFIGURATION  OF  6 POINTS  IN  4 DIMENSIONS  HAS  STRESS  0,104 


FINAL  CONFIGURATION 

12  3 4 

1 0.714  -0,407  -0,367  -0,437 

2 -0 ,430  0,731  -0,446  >0,214 

3 -0.271  -0,173  0,917  >0,263 

4 0,006  -*.,165  -0,091  0,969 

9 -0,646  -0,63?  -0,350  -0,163 
6 0.645  0,646  0,357  0,111 


HISTORY  OF  COMPUTATION,  N»  6,  DIMENSION*  3 

ITERATION  STRESS  SRAT  SRATAV  CAGRGL  COSAV  ACSAV  SFTR  STEP 


D*0A 
D*0  A 
D*0A 
D*0A 
D*0A 
D*0A 


0 0,224  0,600  0,600  >0,00(1  >6,000  0,000  0,0203  0,2267 


D*0  A 
D*0A 
D*0  A 

. <0 A 
D 0A 
T-OA 


37  0,010  0,946  0,936  0,212  6,112  0,166  0,0216  0,0045 
ITERATION  STRESS  SRAT  SRATAV  CAGRGL  COSAV  ACSAV  SFGR  STEP 
SATISFACTORY  STRESS  HAS  REACHED 


THE  final  configuration  OF 

FINAL  CONFIGURATION 


6 POINTS  IN  3 DIMENSIONS  HAS  STRESS  3,010 


i 

2 

3 

1 

0,445 

0 i 702 

•0,555 

2 

-0.466 

0,87$ 

*0,135 

3 

-0,672 

0,277 

0,688 

4 

•0.445  -0,706 

0,547 

5 

0.229  -0,956 

-0,175 

6 

0.911  -0,190 

•0,370 

HISTORY  OF  COMPUTATION,  N*  6*  DIMENSION*  2 
ITERATION  STRESS  SRAT  SRATAV  CAGRGL  COSAV  ACSAV 


SFGR 


STEP 


0*0  A 
0*0  A 
0*0  A 
0*0  A 
0*0  A 
0*0  A 


0 0,117  0,600  n.BOa  0,000  6,000  0,000  0,1067  0,6382 


0*0  A 
D*0A 
0*0  A 
D*0A 
0*0  A 
0*0  A 


6 0,006 
ITERATION  STRESS 


0,176  0,467  0,990 

SRAT  SRATAV  CAGRGL 


6,526  0,969  0,1173  0,0327 

COSAV  ACSAV  SFGR  STEP 
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SATISFACTORY  stress  was  reached 

I 

the  FINAL  CONFIGURATION  OP  6 POINTS  IN  2 DIMENSIONS  HAS  STRESS  0,006 

FINAL  CONFIGURATION 
1 2 

1 0.643  0,772 

2 *0.394  0,939 

f 3 -0,995  0,149 

4 .0,629  .0,766 
9 0.353  .0,934 

, 6 0,962  .0,159 

) ********* 

r 

| HISTORY  OF  COMPUTATION,  N*  6.  DIMENSION*  1 

ITERATION  STRESS  SRAT  SRATAV  CARROL  COSAV  ACSAV  SFGR  STEP 

D*0A 
D*0  A 
D*0  A 
D*0A 

D*oa 

*■  D*0  A 

® 0,422  0,600  0,800  "0,000  "S,000  0.000  0.0297  0,6275 


D*0A 
D*UA 
D*  0 A 
D*0A 
D*0  A 
D*0A 


D*0A 

14 

0,413 

1,000 

0,999 

•0,326  -0,033 

0,554 

0,0001 

0,0021 

D*0A 
D*  0 A 
D*0  A 
D*0  A 
D*0A 

D*0  A 

15 

0,413 

1,000 

0,999 

•0.997  "0,669 

0,646 

0,0006 

0,0005 

D*0A 
D*0A 
D*0  A 
D*0A 
D*0A 

16 

0,413 

1,000 

0,999 

l'fton 

0,432 

0,946 

0,0004 

0,0004 

iteration 

STRESS 

SRAT 

SRATAV 

CAGNGl 

eosAv 

ACSAV 

SFGR 

STEP 

MINIMUM  WAS  ACHIEVED 


The  final  CONFIGURATION  OF  6 POINTS  IN  1 DIMENSIONS  HAS  STRESS  0,413 

FINAL  CONFIGURATION 
1 

1 1.364 

2 1.001 

3 .0.366 

4 -1.001 

5 >1.366 

6 0.368 
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COST  ESTIMATE 

For  the  job  listed  on  the  Sample  Output,  the  total  processing 
time  was  88.912  seconds.  At  the  current  rate  for  the  Michigan 
State  University’s  CDC  3600  ($245. /hr.),  the  computer  time 
cost  $6.05  plus  a charge  for  input  and  output.  A 101  surcharge 
will  be  assessed  if  the  billing  is  to  a non-University  account. 
In  addition,  there  is  a consulting  fee  of  $10. /hr.  for  work 
done  by  the  Applications  Programming  Group. 

Charge  to  user  ■ computer  costs  + consulting  + network  overhead 


= $6.10  (approx.)  + consulting  + network  overhead 
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